Changeset 11554


Ignore:
Timestamp:
2019-09-17T11:46:30+02:00 (12 months ago)
Author:
jchanut
Message:

#2078: add Franziska's fix to correct input/output paths with AGRIF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/IOM/iom.F90

    r11536 r11554  
    694694      clname   = trim(cdname) 
    695695      IF ( .NOT. Agrif_Root() .AND. .NOT. lliof ) THEN 
    696          iln    = INDEX(clname,'/')  
     696!FUS         iln    = INDEX(clname,'/')  
     697         iln    = INDEX(clname,'/',BACK=.true.)  ! FUS: to insert the nest index at the right location within the string, the last / has to be found (search from the right to left) 
    697698         cltmpn = clname(1:iln) 
    698699         clname = clname(iln+1:LEN_TRIM(clname)) 
     
    22382239      CHARACTER(LEN=20)  ::   clfreq 
    22392240      CHARACTER(LEN=20)  ::   cldate 
     2241      CHARACTER(LEN=256) ::   cltmpn                 !FUS needed for correct path with AGRIF 
     2242      INTEGER            ::   iln                    !FUS needed for correct path with AGRIF 
    22402243      INTEGER            ::   idx 
    22412244      INTEGER            ::   jn 
     
    23202323            END DO 
    23212324            ! 
    2322             IF( jn == 1 .AND. TRIM(Agrif_CFixed()) /= '0' )   clname = TRIM(Agrif_CFixed())//"_"//TRIM(clname) 
     2325!FUS            IF( jn == 1 .AND. TRIM(Agrif_CFixed()) /= '0' )   clname = TRIM(Agrif_CFixed())//"_"//TRIM(clname) 
     2326!FUS see comment line 700  
     2327            IF( jn == 1 .AND. TRIM(Agrif_CFixed()) /= '0' ) THEN 
     2328             iln    = INDEX(clname,'/',BACK=.true.) 
     2329             cltmpn = clname(1:iln) 
     2330             clname = clname(iln+1:LEN_TRIM(clname)) 
     2331             clname = TRIM(cltmpn)//TRIM(Agrif_CFixed())//'_'//TRIM(clname) 
     2332            ENDIF 
     2333!FUS  
    23232334            IF( jn == 1 )   CALL iom_set_file_attr( cdid, name        = clname ) 
    23242335            IF( jn == 2 )   CALL iom_set_file_attr( cdid, name_suffix = clname ) 
Note: See TracChangeset for help on using the changeset viewer.