- Timestamp:
- 2015-12-22T14:24:11+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5918_nemo_v3_6_STABLE_XIOS2/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r6063 r6156 1269 1269 TYPE(xios_duration),OPTIONAL , INTENT(in) :: freq_offset 1270 1270 #endif 1271 IF ( xios_is_valid_field (cdid) ) CALL xios_set_field_attr ( cdid, freq_op=freq_op, freq_offset=freq_offset ) 1272 IF ( xios_is_valid_fieldgroup(cdid) ) CALL xios_set_fieldgroup_attr( cdid, freq_op=freq_op, freq_offset=freq_offset ) 1271 IF ( xios_is_valid_field (cdid) ) CALL xios_set_field_attr & 1272 & ( cdid, freq_op=freq_op, freq_offset=freq_offset ) 1273 IF ( xios_is_valid_fieldgroup(cdid) ) CALL xios_set_fieldgroup_attr & 1274 & ( cdid, freq_op=freq_op, freq_offset=freq_offset ) 1273 1275 CALL xios_solve_inheritance() 1274 1276 END SUBROUTINE iom_set_field_attr … … 1824 1826 END DO 1825 1827 1828 IF( jn == 1 .AND. TRIM(Agrif_CFixed()) /= '0' ) clname = TRIM(Agrif_CFixed())//"_"//TRIM(clname) 1826 1829 IF( jn == 1 ) CALL iom_set_file_attr( cdid, name = clname ) 1827 1830 IF( jn == 2 ) CALL iom_set_file_attr( cdid, name_suffix = clname ) … … 1871 1874 ENDIF 1872 1875 1876 !$AGRIF_DO_NOT_TREAT 1877 ! Should be fixed in the conv 1873 1878 IF( llfull ) THEN 1874 1879 clfmt = TRIM(clfmt)//",'_',i2.2,':',i2.2,':',i2.2" … … 1881 1886 WRITE(iom_sdate, '('//TRIM(clfmt)//')') iyear, imonth, iday ! date of the end of run 1882 1887 ENDIF 1888 !$AGRIF_END_DO_NOT_TREAT 1883 1889 1884 1890 END FUNCTION iom_sdate
Note: See TracChangeset
for help on using the changeset viewer.