New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5972 for branches/2014/dev_r4650_UKMO14.5_SST_BIAS_CORRECTION/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90 – NEMO

Ignore:
Timestamp:
2015-12-02T09:52:20+01:00 (8 years ago)
Author:
timgraham
Message:

Upgraded to head of trunk (r5936)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2014/dev_r4650_UKMO14.5_SST_BIAS_CORRECTION/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r5967 r5972  
    129129         ! 
    130130         IF( ln_cfmeta ) THEN   ! Add additional grid metadata 
    131             CALL iom_set_domain_attr("grid_T", area = e12t(nldi:nlei, nldj:nlej)) 
    132             CALL iom_set_domain_attr("grid_U", area = e12u(nldi:nlei, nldj:nlej)) 
    133             CALL iom_set_domain_attr("grid_V", area = e12v(nldi:nlei, nldj:nlej)) 
    134             CALL iom_set_domain_attr("grid_W", area = e12t(nldi:nlei, nldj:nlej)) 
     131            CALL iom_set_domain_attr("grid_T", area = e1e2t(nldi:nlei, nldj:nlej)) 
     132            CALL iom_set_domain_attr("grid_U", area = e1e2u(nldi:nlei, nldj:nlej)) 
     133            CALL iom_set_domain_attr("grid_V", area = e1e2v(nldi:nlei, nldj:nlej)) 
     134            CALL iom_set_domain_attr("grid_W", area = e1e2t(nldi:nlei, nldj:nlej)) 
    135135            CALL set_grid_bounds( "T", glamf, gphif, glamt, gphit ) 
    136136            CALL set_grid_bounds( "U", glamv, gphiv, glamu, gphiu ) 
     
    903903               IF( zofs /= 0. )   pv_r1d(:) = pv_r1d(:) + zofs 
    904904            ELSEIF( PRESENT(pv_r2d) ) THEN 
    905 !CDIR COLLAPSE 
    906905               IF( zscf /= 1.)   pv_r2d(:,:) = pv_r2d(:,:) * zscf 
    907 !CDIR COLLAPSE 
    908906               IF( zofs /= 0.)   pv_r2d(:,:) = pv_r2d(:,:) + zofs 
    909907            ELSEIF( PRESENT(pv_r3d) ) THEN 
    910 !CDIR COLLAPSE 
    911908               IF( zscf /= 1.)   pv_r3d(:,:,:) = pv_r3d(:,:,:) * zscf 
    912 !CDIR COLLAPSE 
    913909               IF( zofs /= 0.)   pv_r3d(:,:,:) = pv_r3d(:,:,:) + zofs 
    914910            ENDIF 
     
    11961192      CHARACTER(LEN=*),OPTIONAL , INTENT(in) ::   freq_op 
    11971193      CHARACTER(LEN=*),OPTIONAL , INTENT(in) ::   freq_offset 
    1198       IF ( xios_is_valid_field     (cdid) )   CALL xios_set_field_attr     ( cdid, freq_op=freq_op, freq_offset=freq_offset ) 
    1199       IF ( xios_is_valid_fieldgroup(cdid) )   CALL xios_set_fieldgroup_attr( cdid, freq_op=freq_op, freq_offset=freq_offset ) 
     1194      IF ( xios_is_valid_field     (cdid) )   CALL xios_set_field_attr       & 
     1195    &     ( cdid, freq_op=freq_op, freq_offset=freq_offset ) 
     1196      IF ( xios_is_valid_fieldgroup(cdid) )   CALL xios_set_fieldgroup_attr  & 
     1197    &                    ( cdid, freq_op=freq_op, freq_offset=freq_offset ) 
    12001198      CALL xios_solve_inheritance() 
    12011199   END SUBROUTINE iom_set_field_attr 
     
    16731671            END DO 
    16741672 
     1673            IF( jn == 1 .AND. TRIM(Agrif_CFixed()) /= '0' )   clname = TRIM(Agrif_CFixed())//"_"//TRIM(clname) 
    16751674            IF( jn == 1 )   CALL iom_set_file_attr( cdid, name        = clname ) 
    16761675            IF( jn == 2 )   CALL iom_set_file_attr( cdid, name_suffix = clname ) 
     
    17201719      ENDIF 
    17211720       
     1721!$AGRIF_DO_NOT_TREAT       
     1722! Should be fixed in the conv 
    17221723      IF( llfull ) THEN  
    17231724         clfmt = TRIM(clfmt)//",'_',i2.2,':',i2.2,':',i2.2" 
     
    17301731         WRITE(iom_sdate, '('//TRIM(clfmt)//')') iyear, imonth, iday                          ! date of the end of run 
    17311732      ENDIF 
     1733!$AGRIF_END_DO_NOT_TREAT       
    17321734 
    17331735   END FUNCTION iom_sdate 
Note: See TracChangeset for help on using the changeset viewer.