- Timestamp:
- 2020-05-14T21:46:00+02:00 (4 years ago)
- Location:
- NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser
- Property svn:externals
-
old new 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL 8 9 # SETTE 10 ^/utils/CI/sette@HEAD sette
-
- Property svn:externals
-
NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser/src/TOP/trcwri.F90
r10068 r12928 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 CALL iom_put( "e3t" , e3t(:,:,:,Kmm) ) 63 CALL iom_put( "e3u" , e3u(:,:,:,Kmm) ) 64 CALL iom_put( "e3v" , e3v(:,:,:,Kmm) ) 65 ! 53 66 ENDIF 54 67 ! write the tracer concentrations in the file 55 68 ! --------------------------------------- 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 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 61 74 ! 62 75 IF( ln_timing ) CALL timing_stop('trc_wri') … … 70 83 PUBLIC trc_wri 71 84 CONTAINS 72 SUBROUTINE trc_wri( kt ) ! Empty routine85 SUBROUTINE trc_wri( kt, Kmm ) ! Empty routine 73 86 INTEGER, INTENT(in) :: kt 87 INTEGER, INTENT(in) :: Kmm ! time level indices 74 88 END SUBROUTINE trc_wri 75 89 #endif
Note: See TracChangeset
for help on using the changeset viewer.