- Timestamp:
- 2020-10-01T13:33:30+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13383_HPC-02_Daley_Tiling/src/OCE/IOM/iom.F90
r13295 r13553 350 350 rst_file = TRIM(clpath)//TRIM(cn_ocerst_in) 351 351 ELSE 352 rst_file = TRIM(clpath)// '1_'//TRIM(cn_ocerst_in)352 rst_file = TRIM(clpath)//TRIM(Agrif_CFixed())//'_'//TRIM(cn_ocerst_in) 353 353 ENDIF 354 354 !set name of the restart file and enable available fields … … 1861 1861 CHARACTER(LEN=*), INTENT(in) :: cdname 1862 1862 REAL(sp) , INTENT(in) :: pfield0d 1863 !! REAL(wp) , DIMENSION(jpi,jpj) :: zz ! masson1863 !! REAL(wp) , DIMENSION(jpi,jpj) :: zz ! masson 1864 1864 #if defined key_iomput 1865 1865 !!clem zz(:,:)=pfield0d
Note: See TracChangeset
for help on using the changeset viewer.