- 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/trcwri.F90
r10068 r13463 30 30 CONTAINS 31 31 32 SUBROUTINE trc_wri( kt )32 SUBROUTINE trc_wri( kt, Kmm ) 33 33 !!--------------------------------------------------------------------- 34 34 !! *** ROUTINE trc_wri *** … … 37 37 !!--------------------------------------------------------------------- 38 38 INTEGER, INTENT( in ) :: kt 39 INTEGER, INTENT( in ) :: Kmm ! time level indices 39 40 ! 40 41 INTEGER :: jn … … 46 47 IF( ln_timing ) CALL timing_start('trc_wri') 47 48 ! 48 IF( l_offline .AND. kt == nittrc000 .AND. lwp ) THEN ! WRITE root name in date.file for use by postpro 49 CALL dia_nam( clhstnam, nn_writetrc,' ' ) 50 CALL ctl_opn( inum, 'date.file', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 51 WRITE(inum,*) clhstnam 52 CLOSE(inum) 49 IF( l_offline ) THEN ! WRITE root name in date.file for use by postpro 50 IF( kt == nittrc000 .AND. lwp ) THEN ! WRITE root name in date.file for use by postpro 51 CALL dia_nam( clhstnam, nn_writetrc,' ' ) 52 CALL ctl_opn( inum, 'date.file', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 53 WRITE(inum,*) clhstnam 54 CLOSE(inum) 55 ENDIF 56 57 ! Output of initial vertical scale factor 58 CALL iom_put( "e3t_0", e3t_0(:,:,:) ) 59 CALL iom_put( "e3u_0", e3u_0(:,:,:) ) 60 CALL iom_put( "e3v_0", e3v_0(:,:,:) ) 61 ! 62 #if ! defined key_qco 63 CALL iom_put( "e3t" , e3t(:,:,:,Kmm) ) 64 CALL iom_put( "e3u" , e3u(:,:,:,Kmm) ) 65 CALL iom_put( "e3v" , e3v(:,:,:,Kmm) ) 66 #endif 67 ! 53 68 ENDIF 54 69 ! write the tracer concentrations in the file 55 70 ! --------------------------------------- 56 IF( ln_pisces ) CALL trc_wri_pisces ! PISCES57 IF( ll_cfc ) CALL trc_wri_cfc ! surface fluxes of CFC58 IF( ln_c14 ) CALL trc_wri_c14 ! surface fluxes of C1459 IF( ln_age ) CALL trc_wri_age ! AGE tracer60 IF( ln_my_trc ) CALL trc_wri_my_trc ! MY_TRC tracers71 IF( ln_pisces ) CALL trc_wri_pisces( Kmm ) ! PISCES 72 IF( ll_cfc ) CALL trc_wri_cfc ( Kmm ) ! surface fluxes of CFC 73 IF( ln_c14 ) CALL trc_wri_c14 ( Kmm ) ! surface fluxes of C14 74 IF( ln_age ) CALL trc_wri_age ( Kmm ) ! AGE tracer 75 IF( ln_my_trc ) CALL trc_wri_my_trc( Kmm ) ! MY_TRC tracers 61 76 ! 62 77 IF( ln_timing ) CALL timing_stop('trc_wri') … … 70 85 PUBLIC trc_wri 71 86 CONTAINS 72 SUBROUTINE trc_wri( kt ) ! Empty routine87 SUBROUTINE trc_wri( kt, Kmm ) ! Empty routine 73 88 INTEGER, INTENT(in) :: kt 89 INTEGER, INTENT(in) :: Kmm ! time level indices 74 90 END SUBROUTINE trc_wri 75 91 #endif
Note: See TracChangeset
for help on using the changeset viewer.