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 5746 for branches/UKMO/2014_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90 – NEMO

Ignore:
Timestamp:
2015-09-15T18:06:54+02:00 (9 years ago)
Author:
rfurner
Message:

changes to name restart files with date instead of time stamp

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/2014_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90

    r3614 r5746  
    2424   USE icb_oce        ! define iceberg arrays 
    2525   USE icbutl         ! iceberg utility routines 
     26! added for ln_rstdate, should include separate branch at later date... 
     27   USE phycst         ! for rday 
     28   USE ioipsl, ONLY : ju2ymds    ! for calendar 
    2629 
    2730   IMPLICIT NONE 
     
    231234      TYPE(iceberg), POINTER :: this 
    232235      TYPE(point)  , POINTER :: pt 
    233       !!---------------------------------------------------------------------- 
    234  
     236! included for ln_rstdate.... 
     237      INTEGER             ::   iyear, imonth, iday 
     238      REAL (wp)           ::   zsec 
     239      CHARACTER(LEN=20)   ::   clkt     ! ocean time-step deine as a character 
     240      !!---------------------------------------------------------------------- 
     241 
     242      IF ( ln_rstdate ) THEN 
     243         CALL ju2ymds( fjulday + rdttra(1) / rday, iyear, imonth, iday, zsec )            
     244         WRITE(clkt, '(i4.4,2i2.2)') iyear, imonth, iday 
     245      ELSE 
     246         IF( kt > 999999999 ) THEN   ;   WRITE(clkt, *       ) kt 
     247         ELSE                        ;   WRITE(clkt, '(i8.8)') kt 
     248         ENDIF 
     249      ENDIF 
     250 
     251! changed for ln_rstdate.... 
    235252      IF( lk_mpp ) THEN 
    236          WRITE(cl_filename,'("icebergs_",I8.8,"_restart_",I4.4,".nc")') kt, narea-1 
     253         !WRITE(cl_filename,'("icebergs_",I8.8,"_restart_",I4.4,".nc")') kt, narea-1 
     254         WRITE(cl_filename,'("icebergs_",A,"_restart_",I4.4,".nc")') TRIM(ADJUSTL(clkt)), narea-1 
    237255      ELSE 
    238          WRITE(cl_filename,'("icebergs_",I8.8,"_restart.nc")') kt 
     256         !WRITE(cl_filename,'("icebergs_",I8.8,"_restart.nc")') kt 
     257         WRITE(cl_filename,'("_icebergs_",A,"_restart.nc")') TRIM(ADJUSTL(clkt)) 
    239258      ENDIF 
    240259      IF (nn_verbose_level >= 0) WRITE(numout,'(2a)') 'icebergs, write_restart: creating ',TRIM(cl_filename) 
Note: See TracChangeset for help on using the changeset viewer.