Changeset 11464


Ignore:
Timestamp:
2019-08-20T15:39:28+02:00 (13 months ago)
Author:
mattmartin
Message:

Commit changes which are in one of Jennie's orca12 branches.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_obs_oper_update_addclim/NEMOGCM/NEMO/OPA_SRC/OBS/obs_oper.F90

    r11460 r11464  
    772772      CALL obs_int_comm_2d( imaxifp, imaxjfp, isurf, kpi, kpj, & 
    773773         &                  igrdi, igrdj, psurf, zsurf ) 
    774       CALL obs_int_comm_2d( imaxifp+1, imaxjfp+1, isurf, kpi, kpj, & 
    775          &                  igrdip1, igrdjp1, glamf, zglamf ) 
    776       CALL obs_int_comm_2d( imaxifp+1, imaxjfp+1, isurf, kpi, kpj, & 
    777          &                  igrdip1, igrdjp1, gphif, zgphif ) 
    778  
     774 
     775      IF ( k2dint > 4 ) THEN          
     776         CALL obs_int_comm_2d( imaxifp+1, imaxjfp+1, isurf, kpi, kpj, & 
     777            &                  igrdip1, igrdjp1, glamf, zglamf ) 
     778         CALL obs_int_comm_2d( imaxifp+1, imaxjfp+1, isurf, kpi, kpj, & 
     779            &                  igrdip1, igrdjp1, gphif, zgphif ) 
     780      ENDIF 
     781       
    779782      IF ( surfdataqc%lclim ) THEN  
    780783         CALL obs_int_comm_2d( imaxifp, imaxjfp, isurf, kpi, kpj, & 
Note: See TracChangeset for help on using the changeset viewer.