Changeset 1189
- Timestamp:
- 2008-09-12T13:20:32+02:00 (16 years ago)
- Location:
- trunk/NEMO/TOP_SRC
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/TRP/trcadv_smolar.F90
r1175 r1189 25 25 USE oce_trc ! ocean dynamics and active tracers variables 26 26 USE trc ! ocean passive tracers variables 27 USE trp_trc 27 28 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 28 29 USE trcbbl ! advective passive tracers in the BBL -
trunk/NEMO/TOP_SRC/TRP/trcadv_tvd.F90
r1175 r1189 21 21 USE oce_trc ! ocean dynamics and active tracers variables 22 22 USE trc ! ocean passive tracers variables 23 USE trp_trc 23 24 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 24 25 USE trcbbl ! advective passive tracers in the BBL -
trunk/NEMO/TOP_SRC/TRP/trcstp.F90
r1175 r1189 18 18 USE trdmld_trc_oce 19 19 USE trdmld_trc 20 USE trdmld_trc_rst21 20 22 21 IMPLICIT NONE … … 61 60 CALL trc_rst_opn( kt ) ! Open tracer restart file 62 61 63 CALL trd_mld_trc_rst_opn( kt ) ! Open restart file for trends64 65 62 CALL trc_sms( kt ) ! tracers: sink and source 66 63 -
trunk/NEMO/TOP_SRC/TRP/trdmld_trc.F90
r1175 r1189 1447 1447 !-- Create a NetCDF file and enter the define mode 1448 1448 IF( luttrd(jn) ) THEN 1449 csuff=" TD_"//ctrcnm(jn)1449 csuff="ML_"//ctrcnm(jn) 1450 1450 CALL dia_nam( clhstnam, ntrd_trc, csuff ) 1451 1451 CALL histbeg( clhstnam, jpi, glamt, jpj, gphit, & -
trunk/NEMO/TOP_SRC/TRP/trdmld_trc_rst.F90
r1175 r1189 19 19 PRIVATE 20 20 21 PUBLIC trd_mld_trc_rst_opn22 21 PUBLIC trd_mld_trc_rst_read ! routine called by trd_mld_init 23 22 PUBLIC trd_mld_trc_rst_write ! routine called by step.F90 … … 32 31 CONTAINS 33 32 34 SUBROUTINE trd_mld_trc_rst_opn( kt )35 !!--------------------------------------------------------------------------------36 !! *** SUBROUTINE trd_mld_trc_rst_opn ***37 !!38 !! ** Purpose : open mixed-layer diagnostics restart fields.39 !!--------------------------------------------------------------------------------40 INTEGER, INTENT( in ) :: kt ! ocean time-step index41 CHARACTER(LEN=20) :: clkt ! ocean time-step deine as a character42 CHARACTER(LEN=50) :: clname ! ice output restart file name43 !!--------------------------------------------------------------------------------44 45 IF ( lk_trdmld_trc ) THEN46 IF( kt == nitrst - ndttrc .OR. nitend - nit000 + 1 < 2 * ndttrc ) THEN ! idem trcrst.F9047 IF( nitrst > 1.0e9 ) THEN48 WRITE(clkt,*) nitrst49 ELSE50 WRITE(clkt,'(i8.8)') nitrst51 ENDIF52 clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_restart_mld_trc"53 IF(lwp) WRITE(numout,*) ' open ocean restart_mld_trc NetCDF file: '//clname54 CALL iom_open( clname, nummldw_trc, ldwrt = .TRUE., kiolib = jprstlib )55 ENDIF56 ENDIF57 58 END SUBROUTINE trd_mld_trc_rst_opn59 33 60 34 SUBROUTINE trd_mld_trc_rst_write( kt ) … … 66 40 INTEGER, INTENT( in ) :: kt ! ocean time-step index 67 41 ! 42 CHARACTER(LEN=20) :: clkt ! ocean time-step deine as a character 43 CHARACTER(LEN=50) :: clname ! ice output restart file name 68 44 CHARACTER (len=35) :: charout 69 45 INTEGER :: jl, jk, jn ! loop indice 70 46 !!-------------------------------------------------------------------------------- 47 48 IF( kt == nitrst - ndttrc .OR. nitend - nit000 + 1 < 2 * ndttrc ) THEN ! idem trcrst.F90 49 IF( nitrst > 1.0e9 ) THEN 50 WRITE(clkt,*) nitrst 51 ELSE 52 WRITE(clkt,'(i8.8)') nitrst 53 ENDIF 54 clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_restart_mld_trc" 55 IF(lwp) WRITE(numout,*) ' open ocean restart_mld_trc NetCDF '//clname 56 CALL iom_open( clname, nummldw_trc, ldwrt = .TRUE., kiolib = jprstlib ) 57 ENDIF 71 58 72 59 IF( kt == nitend .AND. lk_trdmld_trc ) THEN -
trunk/NEMO/TOP_SRC/trcdia.F90
r1167 r1189 24 24 USE trc 25 25 USE trp_trc 26 USE trdmld_trc_oce, ONLY : luttrd 26 27 USE dianam ! build name of file (routine) 27 28 USE in_out_manager ! I/O manager
Note: See TracChangeset
for help on using the changeset viewer.