Changeset 10975 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/CFC/trcini_cfc.F90
- Timestamp:
- 2019-05-13T18:34:33+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/CFC/trcini_cfc.F90
r10068 r10975 31 31 CONTAINS 32 32 33 SUBROUTINE trc_ini_cfc 33 SUBROUTINE trc_ini_cfc( Kmm ) 34 34 !!---------------------------------------------------------------------- 35 35 !! *** trc_ini_cfc *** … … 39 39 !! ** Method : - Read the namcfc namelist and check the parameter values 40 40 !!---------------------------------------------------------------------- 41 INTEGER, INTENT(in) :: Kmm ! time level indices 41 42 INTEGER :: ji, jj, jn, jl, jm, js, io, ierr 42 INTEGER :: iskip = 6 ! number of 1st descriptor lines43 INTEGER :: iskip = 6 ! number of 1st descriptor lines 43 44 REAL(wp) :: zyy, zyd 44 45 CHARACTER(len = 20) :: cltra … … 90 91 DO jl = 1, jp_cfc 91 92 jn = jp_cfc0 + jl - 1 92 tr n(:,:,:,jn) = 0._wp93 tr(:,:,:,jn,Kmm) = 0._wp 93 94 END DO 94 95 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.