New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 1189 for trunk/NEMO/TOP_SRC/TRP/trdmld_trc_rst.F90 – NEMO

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

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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • 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 
Note: See TracChangeset for help on using the changeset viewer.