Changeset 11554
- Timestamp:
- 2019-09-17T11:46:30+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/IOM/iom.F90
r11536 r11554 694 694 clname = trim(cdname) 695 695 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) 697 698 cltmpn = clname(1:iln) 698 699 clname = clname(iln+1:LEN_TRIM(clname)) … … 2238 2239 CHARACTER(LEN=20) :: clfreq 2239 2240 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 2240 2243 INTEGER :: idx 2241 2244 INTEGER :: jn … … 2320 2323 END DO 2321 2324 ! 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 2323 2334 IF( jn == 1 ) CALL iom_set_file_attr( cdid, name = clname ) 2324 2335 IF( jn == 2 ) CALL iom_set_file_attr( cdid, name_suffix = clname )
Note: See TracChangeset
for help on using the changeset viewer.