Changeset 3358 for branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM
- Timestamp:
- 2012-04-17T09:03:26+02:00 (12 years ago)
- Location:
- branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/NEMO/SAS_SRC
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/NEMO/SAS_SRC/sbcsas.F90
r3335 r3358 45 45 46 46 TYPE(FLD), ALLOCATABLE, DIMENSION(:) :: sf_sas ! structure of input fields (file information, fields read) 47 ! !48 INTEGER :: nrecprev_tem , nrecprev_uwd49 47 50 48 !! * Substitutions … … 72 70 ! 73 71 INTEGER :: ji, jj ! dummy loop indices 74 INTEGER :: isecsbc ! number of seconds between Jan. 1st 00h of nit000 year and the middle of time step75 72 REAL(wp) :: ztinta ! ratio applied to after records when doing time interpolation 76 73 REAL(wp) :: ztintb ! ratio applied to before records when doing time interpolation 77 INTEGER :: iswap_tem, iswap_uwd !78 74 !!---------------------------------------------------------------------- 79 75 80 76 ! 81 77 IF( nn_timing == 1 ) CALL timing_start( 'sbc_sas') 82 !83 isecsbc = nsec_year + nsec1jan00084 !85 IF( kt == nit000 ) THEN86 nrecprev_tem = 087 nrecprev_uwd = 088 ELSE89 nrecprev_tem = sf_sas(jf_tem)%nrec_a(2)90 nrecprev_uwd = sf_sas(jf_uwd)%nrec_a(2)91 ENDIF92 78 ! 93 79 CALL fld_read( kt, 1, sf_sas ) !== read data at kt time step ==! -
branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/NEMO/SAS_SRC/step.F90
r3331 r3358 75 75 !! *** ROUTINE stp *** 76 76 !! 77 !! ** Purpose : - Time stepping of OPA (momentum and active tracer eqs.) 78 !! - Time stepping of LIM (dynamic and thermodynamic eqs.) 79 !! - Tme stepping of TRC (passive tracer eqs.) 77 !! ** Purpose : - Time stepping of SBC (surface boundary) 80 78 !! 81 79 !! ** Method : -1- Update forcings and data 82 !! -2- Update ocean physics 83 !! -3- Compute the t and s trends 84 !! -4- Update t and s 85 !! -5- Compute the momentum trends 86 !! -6- Update the horizontal velocity 87 !! -7- Compute the diagnostics variables (rd,N2, div,cur,w) 88 !! -8- Outputs and diagnostics 80 !! -2- Outputs and diagnostics 89 81 !!---------------------------------------------------------------------- 90 INTEGER :: jk ! dummy loop indice91 82 INTEGER :: indic ! error indicator if < 0 92 83 !! --------------------------------------------------------------------- -
branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/NEMO/SAS_SRC/stpctl.F90
r3331 r3358 48 48 INTEGER, INTENT( in ) :: kt ! ocean time-step index 49 49 INTEGER, INTENT( inout ) :: kindic ! indicator of solver convergence 50 !!51 INTEGER :: ji, jj, jk ! dummy loop indices52 INTEGER :: ii, ij, ik ! temporary integers53 REAL(wp) :: zumax, zsmin, zssh2 ! temporary scalars54 INTEGER, DIMENSION(3) :: ilocu !55 INTEGER, DIMENSION(2) :: ilocs !56 50 !!---------------------------------------------------------------------- 57 51
Note: See TracChangeset
for help on using the changeset viewer.