- Timestamp:
- 2020-09-14T17:40:34+02:00 (4 years ago)
- Location:
- NEMO/branches/2019/dev_r11351_fldread_with_XIOS
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11351_fldread_with_XIOS
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev @HEADext/AGRIF5 ^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL 8 9 # SETTE 10 ^/utils/CI/sette@13382 sette
-
- Property svn:externals
-
NEMO/branches/2019/dev_r11351_fldread_with_XIOS/src/TOP/trcsms.F90
r10068 r13463 20 20 USE trcsms_age ! AGE 21 21 USE trcsms_my_trc ! MY_TRC tracers 22 USE prtctl _trc! Print control for debbuging22 USE prtctl ! Print control for debbuging 23 23 24 24 IMPLICIT NONE … … 34 34 CONTAINS 35 35 36 SUBROUTINE trc_sms( kt )36 SUBROUTINE trc_sms( kt, Kbb, Kmm , Krhs ) 37 37 !!--------------------------------------------------------------------- 38 38 !! *** ROUTINE trc_sms *** … … 42 42 !! ** Method : - call the main routine of of each defined tracer model 43 43 !! ------------------------------------------------------------------------------------- 44 INTEGER, INTENT( in ) :: kt ! ocean time-step index 44 INTEGER, INTENT( in ) :: kt ! ocean time-step index 45 INTEGER, INTENT( in ) :: Kbb, Kmm, Krhs ! time level indices 45 46 !! 46 47 CHARACTER (len=25) :: charout … … 49 50 IF( ln_timing ) CALL timing_start('trc_sms') 50 51 ! 51 IF( ln_pisces ) CALL trc_sms_pisces ( kt ) ! main program of PISCES52 IF( ll_cfc ) CALL trc_sms_cfc ( kt ) ! surface fluxes of CFC53 IF( ln_c14 ) CALL trc_sms_c14 ( kt ) ! surface fluxes of C1454 IF( ln_age ) CALL trc_sms_age ( kt ) ! Age tracer55 IF( ln_my_trc ) CALL trc_sms_my_trc ( kt ) ! MY_TRC tracers52 IF( ln_pisces ) CALL trc_sms_pisces ( kt, Kbb, Kmm, Krhs ) ! main program of PISCES 53 IF( ll_cfc ) CALL trc_sms_cfc ( kt, Kbb, Kmm, Krhs ) ! surface fluxes of CFC 54 IF( ln_c14 ) CALL trc_sms_c14 ( kt, Kbb, Kmm, Krhs ) ! surface fluxes of C14 55 IF( ln_age ) CALL trc_sms_age ( kt, Kbb, Kmm, Krhs ) ! Age tracer 56 IF( ln_my_trc ) CALL trc_sms_my_trc ( kt, Kbb, Kmm, Krhs ) ! MY_TRC tracers 56 57 57 IF( ln_ctl) THEN! print mean trends (used for debugging)58 IF(sn_cfctl%l_prttrc) THEN ! print mean trends (used for debugging) 58 59 WRITE(charout, FMT="('sms ')") 59 CALL prt_ctl_ trc_info( charout)60 CALL prt_ctl _trc( tab4d=trn, mask=tmask, clinfo=ctrcnm )60 CALL prt_ctl_info( charout, cdcomp = 'top' ) 61 CALL prt_ctl( tab4d_1=tr(:,:,:,:,Kmm), mask1=tmask, clinfo=ctrcnm ) 61 62 ENDIF 62 63 !
Note: See TracChangeset
for help on using the changeset viewer.