Changeset 12377 for NEMO/trunk/src/TOP/AGE
- Timestamp:
- 2020-02-12T15:39:06+01:00 (4 years ago)
- Location:
- NEMO/trunk
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev @HEAD ext/AGRIF5 ^/vendors/AGRIF/dev_r11615_ENHANCE-04_namelists_as_internalfiles_agrif@HEAD ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL
-
- Property svn:externals
-
NEMO/trunk/src/TOP/AGE/trcini_age.F90
r10070 r12377 25 25 CONTAINS 26 26 27 SUBROUTINE trc_ini_age 27 SUBROUTINE trc_ini_age( Kmm ) 28 28 !!---------------------------------------------------------------------- 29 29 !! *** trc_ini_age *** … … 32 32 !! 33 33 !!---------------------------------------------------------------------- 34 INTEGER, INTENT(in) :: Kmm ! time level indices 34 35 INTEGER :: jn 35 36 CHARACTER(len = 20) :: cltra … … 57 58 58 59 59 IF( .NOT. ln_rsttr ) tr n(:,:,:,jp_age) = 0.60 IF( .NOT. ln_rsttr ) tr(:,:,:,jp_age,Kmm) = 0. 60 61 ! 61 62 END SUBROUTINE trc_ini_age -
NEMO/trunk/src/TOP/AGE/trcnam_age.F90
r11536 r12377 54 54 ln_trc_obc(jp_age) = .false. 55 55 ! 56 REWIND( numnat_ref ) ! Namelist namagedate in reference namelist : AGE parameters57 56 READ ( numnat_ref, namage, IOSTAT = ios, ERR = 901) 58 57 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namage in reference namelist' ) 59 REWIND( numnat_cfg ) ! Namelist namagedate in configuration namelist : AGE parameters60 58 READ ( numnat_cfg, namage, IOSTAT = ios, ERR = 902 ) 61 59 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namage in configuration namelist' ) -
NEMO/trunk/src/TOP/AGE/trcsms_age.F90
r10070 r12377 37 37 CONTAINS 38 38 39 SUBROUTINE trc_sms_age( kt )39 SUBROUTINE trc_sms_age( kt, Kbb, Kmm, Krhs ) 40 40 !!---------------------------------------------------------------------- 41 41 !! *** trc_sms_age *** … … 45 45 !! ** Method : - 46 46 !!---------------------------------------------------------------------- 47 INTEGER, INTENT(in) :: kt ! ocean time-step index 47 INTEGER, INTENT(in) :: kt ! ocean time-step index 48 INTEGER, INTENT(in) :: Kbb, Kmm, Krhs ! ocean time level 48 49 INTEGER :: jn, jk ! dummy loop index 49 50 !!---------------------------------------------------------------------- … … 57 58 58 59 DO jk = 1, nla_age 59 tr a(:,:,jk,jp_age) = rn_age_kill_rate * trb(:,:,jk,jp_age)60 tr(:,:,jk,jp_age,Krhs) = rn_age_kill_rate * tr(:,:,jk,jp_age,Kbb) 60 61 END DO 61 62 ! 62 tr a(:,:,nl_age,jp_age) = frac_kill_age * rn_age_kill_rate * trb(:,:,nl_age,jp_age) &63 tr(:,:,nl_age,jp_age,Krhs) = frac_kill_age * rn_age_kill_rate * tr(:,:,nl_age,jp_age,Kbb) & 63 64 & + frac_add_age * rryear * tmask(:,:,nl_age) 64 65 ! 65 66 DO jk = nlb_age, jpk 66 tr a(:,:,jk,jp_age) = tmask(:,:,jk) * rryear67 tr(:,:,jk,jp_age,Krhs) = tmask(:,:,jk) * rryear 67 68 END DO 68 69 ! 69 IF( l_trdtrc ) CALL trd_trc( tr a(:,:,:,jp_age), jn, jptra_sms, kt) ! save trends70 IF( l_trdtrc ) CALL trd_trc( tr(:,:,:,jp_age,Krhs), jn, jptra_sms, kt, Kmm ) ! save trends 70 71 ! 71 72 IF( ln_timing ) CALL timing_stop('trc_sms_age') -
NEMO/trunk/src/TOP/AGE/trcwri_age.F90
r10070 r12377 21 21 CONTAINS 22 22 23 SUBROUTINE trc_wri_age 23 SUBROUTINE trc_wri_age( Kmm ) 24 24 !!--------------------------------------------------------------------- 25 25 !! *** ROUTINE trc_wri_trc *** … … 27 27 !! ** Purpose : output passive tracers fields 28 28 !!--------------------------------------------------------------------- 29 INTEGER, INTENT(in) :: Kmm ! time level indices 29 30 CHARACTER (len=20) :: cltra 30 31 INTEGER :: jn … … 34 35 35 36 cltra = TRIM( ctrcnm(jp_age) ) ! short title for tracer 36 CALL iom_put( cltra, tr n(:,:,:,jp_age) )37 CALL iom_put( cltra, tr(:,:,:,jp_age,Kmm) ) 37 38 38 39 !
Note: See TracChangeset
for help on using the changeset viewer.