Changeset 12377 for NEMO/trunk/src/TOP/trcwri.F90
- Timestamp:
- 2020-02-12T15:39:06+01:00 (4 years ago)
- Location:
- NEMO/trunk
- Files:
-
- 2 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/trcwri.F90
r12280 r12377 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 … … 53 54 CLOSE(inum) 54 55 ENDIF 55 ! Output of initial vertical scale factor 56 CALL iom_put("e3t_0", e3t_0(:,:,:) ) 57 CALL iom_put("e3u_0", e3u_0(:,:,:) ) 58 CALL iom_put("e3v_0", e3v_0(:,:,:) ) 59 ! 60 CALL iom_put( "e3t" , e3t_n(:,:,:) ) 61 CALL iom_put( "e3u" , e3u_n(:,:,:) ) 62 CALL iom_put( "e3v" , e3v_n(:,:,:) ) 63 ! 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 CALL iom_put( "e3t" , e3t(:,:,:,Kmm) ) 63 CALL iom_put( "e3u" , e3u(:,:,:,Kmm) ) 64 CALL iom_put( "e3v" , e3v(:,:,:,Kmm) ) 65 ! 64 66 ENDIF 65 67 ! write the tracer concentrations in the file 66 68 ! --------------------------------------- 67 IF( ln_pisces ) CALL trc_wri_pisces ! PISCES68 IF( ll_cfc ) CALL trc_wri_cfc ! surface fluxes of CFC69 IF( ln_c14 ) CALL trc_wri_c14 ! surface fluxes of C1470 IF( ln_age ) CALL trc_wri_age ! AGE tracer71 IF( ln_my_trc ) CALL trc_wri_my_trc ! MY_TRC tracers69 IF( ln_pisces ) CALL trc_wri_pisces( Kmm ) ! PISCES 70 IF( ll_cfc ) CALL trc_wri_cfc ( Kmm ) ! surface fluxes of CFC 71 IF( ln_c14 ) CALL trc_wri_c14 ( Kmm ) ! surface fluxes of C14 72 IF( ln_age ) CALL trc_wri_age ( Kmm ) ! AGE tracer 73 IF( ln_my_trc ) CALL trc_wri_my_trc( Kmm ) ! MY_TRC tracers 72 74 ! 73 75 IF( ln_timing ) CALL timing_stop('trc_wri') … … 81 83 PUBLIC trc_wri 82 84 CONTAINS 83 SUBROUTINE trc_wri( kt ) ! Empty routine85 SUBROUTINE trc_wri( kt, Kmm ) ! Empty routine 84 86 INTEGER, INTENT(in) :: kt 87 INTEGER, INTENT(in) :: Kmm ! time level indices 85 88 END SUBROUTINE trc_wri 86 89 #endif
Note: See TracChangeset
for help on using the changeset viewer.