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 9172 – NEMO

Changeset 9172


Ignore:
Timestamp:
2018-01-03T12:40:54+01:00 (7 years ago)
Author:
jenniewaters
Message:

temporary fix to get ln_grid_global equals false working.

File:
1 edited

Legend:

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

    r8653 r9172  
    900900      CALL obs_int_comm_2d( imaxifp, imaxjfp, isurf, kpi, kpj, & 
    901901         &                  igrdi, igrdj, psurf, zsurf ) 
    902       CALL obs_int_comm_2d( imaxifp+1, imaxjfp+1, isurf, kpi, kpj, & 
    903          &                  igrdip1, igrdjp1, glamf, zglamf ) 
    904       CALL obs_int_comm_2d( imaxifp+1, imaxjfp+1, isurf, kpi, kpj, & 
    905          &                  igrdip1, igrdjp1, gphif, zgphif ) 
     902 
     903      IF ( k2dint > 4 ) THEN 
     904 
     905         CALL obs_int_comm_2d( imaxifp+1, imaxjfp+1, isurf, kpi, kpj, & 
     906            &                  igrdip1, igrdjp1, glamf, zglamf ) 
     907         CALL obs_int_comm_2d( imaxifp+1, imaxjfp+1, isurf, kpi, kpj, & 
     908            &                  igrdip1, igrdjp1, gphif, zgphif ) 
     909 
     910      ENDIF 
    906911 
    907912      ! At the end of the day get interpolated means 
Note: See TracChangeset for help on using the changeset viewer.