Ignore:
Timestamp:
2015-12-22T14:24:11+01:00 (5 years ago)
Author:
timgraham
Message:

Merged in dev_agrif_v3_6_STABLE

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  
    12691269      TYPE(xios_duration),OPTIONAL , INTENT(in) ::   freq_offset 
    12701270#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 ) 
    12731275      CALL xios_solve_inheritance() 
    12741276   END SUBROUTINE iom_set_field_attr 
     
    18241826            END DO 
    18251827 
     1828            IF( jn == 1 .AND. TRIM(Agrif_CFixed()) /= '0' )   clname = TRIM(Agrif_CFixed())//"_"//TRIM(clname) 
    18261829            IF( jn == 1 )   CALL iom_set_file_attr( cdid, name        = clname ) 
    18271830            IF( jn == 2 )   CALL iom_set_file_attr( cdid, name_suffix = clname ) 
     
    18711874      ENDIF 
    18721875       
     1876!$AGRIF_DO_NOT_TREAT       
     1877! Should be fixed in the conv 
    18731878      IF( llfull ) THEN  
    18741879         clfmt = TRIM(clfmt)//",'_',i2.2,':',i2.2,':',i2.2" 
     
    18811886         WRITE(iom_sdate, '('//TRIM(clfmt)//')') iyear, imonth, iday                          ! date of the end of run 
    18821887      ENDIF 
     1888!$AGRIF_END_DO_NOT_TREAT       
    18831889 
    18841890   END FUNCTION iom_sdate 
Note: See TracChangeset for help on using the changeset viewer.