Changeset 1189


Ignore:
Timestamp:
2008-09-12T13:20:32+02:00 (12 years ago)
Author:
cetlod
Message:

update transport modules to take into account new trends organization, see ticket:248

Location:
trunk/NEMO/TOP_SRC
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/TOP_SRC/TRP/trcadv_smolar.F90

    r1175 r1189  
    2525   USE oce_trc             ! ocean dynamics and active tracers variables 
    2626   USE trc                 ! ocean passive tracers variables 
     27   USE trp_trc 
    2728   USE lbclnk              ! ocean lateral boundary conditions (or mpp link) 
    2829   USE trcbbl              ! advective passive tracers in the BBL 
  • trunk/NEMO/TOP_SRC/TRP/trcadv_tvd.F90

    r1175 r1189  
    2121   USE oce_trc             ! ocean dynamics and active tracers variables 
    2222   USE trc                 ! ocean passive tracers variables 
     23   USE trp_trc 
    2324   USE lbclnk              ! ocean lateral boundary conditions (or mpp link) 
    2425   USE trcbbl              ! advective passive tracers in the BBL 
  • trunk/NEMO/TOP_SRC/TRP/trcstp.F90

    r1175 r1189  
    1818   USE trdmld_trc_oce 
    1919   USE trdmld_trc 
    20    USE trdmld_trc_rst 
    2120 
    2221   IMPLICIT NONE 
     
    6160                             CALL trc_rst_opn( kt )       ! Open tracer restart file  
    6261 
    63                              CALL trd_mld_trc_rst_opn( kt ) ! Open restart file for trends  
    64  
    6562                             CALL trc_sms( kt )           ! tracers: sink and source 
    6663 
  • trunk/NEMO/TOP_SRC/TRP/trdmld_trc.F90

    r1175 r1189  
    14471447      !-- Create a NetCDF file and enter the define mode  
    14481448         IF( luttrd(jn) ) THEN 
    1449             csuff="TD_"//ctrcnm(jn) 
     1449            csuff="ML_"//ctrcnm(jn) 
    14501450            CALL dia_nam( clhstnam, ntrd_trc, csuff ) 
    14511451            CALL histbeg( clhstnam, jpi, glamt, jpj, gphit,                                            & 
  • trunk/NEMO/TOP_SRC/TRP/trdmld_trc_rst.F90

    r1175 r1189  
    1919   PRIVATE 
    2020   
    21    PUBLIC   trd_mld_trc_rst_opn 
    2221   PUBLIC   trd_mld_trc_rst_read    ! routine called by trd_mld_init 
    2322   PUBLIC   trd_mld_trc_rst_write   ! routine called by step.F90 
     
    3231CONTAINS 
    3332   
    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 index 
    41       CHARACTER(LEN=20)   ::   clkt     ! ocean time-step deine as a character 
    42       CHARACTER(LEN=50)   ::   clname   ! ice output restart file name 
    43       !!-------------------------------------------------------------------------------- 
    44        
    45       IF ( lk_trdmld_trc ) THEN 
    46          IF( kt == nitrst - ndttrc .OR. nitend - nit000 + 1 < 2 * ndttrc ) THEN ! idem trcrst.F90 
    47             IF( nitrst > 1.0e9 ) THEN    
    48                WRITE(clkt,*) nitrst 
    49             ELSE 
    50                WRITE(clkt,'(i8.8)') nitrst 
    51             ENDIF 
    52             clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_restart_mld_trc" 
    53             IF(lwp) WRITE(numout,*) '             open ocean restart_mld_trc NetCDF file: '//clname 
    54             CALL iom_open( clname, nummldw_trc, ldwrt = .TRUE., kiolib = jprstlib ) 
    55          ENDIF 
    56       ENDIF 
    57  
    58     END SUBROUTINE trd_mld_trc_rst_opn 
    5933 
    6034    SUBROUTINE trd_mld_trc_rst_write( kt ) 
     
    6640      INTEGER, INTENT( in ) ::   kt     ! ocean time-step index 
    6741      ! 
     42      CHARACTER(LEN=20)   ::   clkt     ! ocean time-step deine as a character 
     43      CHARACTER(LEN=50)   ::   clname   ! ice output restart file name 
    6844      CHARACTER (len=35) :: charout 
    6945      INTEGER :: jl,  jk, jn               ! loop indice 
    7046      !!-------------------------------------------------------------------------------- 
     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 
    7158 
    7259      IF( kt == nitend .AND. lk_trdmld_trc ) THEN 
  • trunk/NEMO/TOP_SRC/trcdia.F90

    r1167 r1189  
    2424   USE trc 
    2525   USE trp_trc 
     26   USE trdmld_trc_oce, ONLY : luttrd 
    2627   USE dianam    ! build name of file (routine) 
    2728   USE in_out_manager  ! I/O manager 
Note: See TracChangeset for help on using the changeset viewer.