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 1672 for trunk/NEMO/OFF_SRC/DIA/dianam.F90 – NEMO

Ignore:
Timestamp:
2009-10-21T15:04:35+02:00 (15 years ago)
Author:
cetlod
Message:

Improvment of dianam.F90 module in offline configuration, see ticket:564

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OFF_SRC/DIA/dianam.F90

    r1654 r1672  
    4949      !! * Local declarations 
    5050      CHARACTER (len=2) ::   clave 
     51      CHARACTER (len=3) ::   clave1 
    5152      CHARACTER (len=5) ::   clout 
    5253      INTEGER :: jt                       ! dummy loop indices 
     
    240241            WRITE(cdfnam,9004) iyear1,imonth1,iday1,iyear2,imonth2,iday2 
    241242         ENDIF 
     243      ELSE IF( (znbsec == 5.*raass .AND. nleapy > 1) .OR.   & 
     244               (znbsec >= 5.*365*rjjss .AND. znbsec <= 5.*366*rjjss .AND. nleapy <= 1) ) THEN 
     245         clave = '5y' 
     246         IF( iyear2 <= 99 ) THEN 
     247            WRITE(cdfnam,9001) iyear1,imonth1,iday1,iyear2,imonth2,iday2 
     248         ELSE IF( iyear2 <= 999 ) THEN 
     249            WRITE(cdfnam,9002) iyear1,imonth1,iday1,iyear2,imonth2,iday2 
     250         ELSE IF( iyear2 <= 9999 ) THEN 
     251            WRITE(cdfnam,9003) iyear1,imonth1,iday1,iyear2,imonth2,iday2 
     252         ELSE 
     253            WRITE(cdfnam,9004) iyear1,imonth1,iday1,iyear2,imonth2,iday2 
     254         ENDIF 
     255      ELSE IF( (znbsec == 10.*raass .AND. nleapy > 1) .OR.   & 
     256               (znbsec >= 10.*365*rjjss .AND. znbsec <= 10.*366*rjjss .AND. nleapy <= 1) ) THEN 
     257         clave1 = '10y' 
     258         iout = 1 
     259         IF( iyear2 <= 99 ) THEN 
     260            WRITE(cdfnam,9001) iyear1,imonth1,iday1,iyear2,imonth2,iday2 
     261         ELSE IF( iyear2 <= 999 ) THEN 
     262            WRITE(cdfnam,9002) iyear1,imonth1,iday1,iyear2,imonth2,iday2 
     263         ELSE IF( iyear2 <= 9999 ) THEN 
     264            WRITE(cdfnam,9003) iyear1,imonth1,iday1,iyear2,imonth2,iday2 
     265         ELSE 
     266            WRITE(cdfnam,9004) iyear1,imonth1,iday1,iyear2,imonth2,iday2 
     267         ENDIF 
    242268      ELSE 
     269 
    243270         ! others 
    244271         iout = kfreq 
     
    275302      IF( iout == 0 ) THEN  
    276303         cdfnam = TRIM(cexper)//"_"//clave//TRIM(cdfnam)//TRIM(cdsuff) 
    277       ELSE  
     304      ELSE IF( iout == 1 .AND. kfreq > 1 ) THEN 
     305         cdfnam = TRIM(cexper)//"_"//clave1//TRIM(cdfnam)//TRIM(cdsuff) 
     306      ELSE 
    278307         cdfnam = TRIM(cexper)//"_"//clave//TRIM(clout)//TRIM(cdfnam)//TRIM(cdsuff) 
    279308      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.