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

Changeset 7644


Ignore:
Timestamp:
2017-02-03T17:34:00+01:00 (7 years ago)
Author:
cbricaud
Message:

fix ticket #1843 in dev_merge_2016

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/OBS/obs_oper.F90

    r6140 r7644  
    12511251 
    12521252      ! At the end of the day get interpolated means 
    1253       IF ( idayend == 0 .AND. ldnightav ) THEN 
    1254  
    1255          ALLOCATE( & 
    1256             & zsurfm(2,2,isurf)  & 
    1257             & ) 
    1258  
    1259          CALL obs_int_comm_2d( 2, 2, isurf, kpi, kpj, igrdi, igrdj, & 
    1260             &               surfdataqc%vdmean(:,:), zsurfm ) 
    1261  
     1253      IF (ldnightav ) THEN 
     1254         IF ( idayend == 0 ) THEN 
     1255 
     1256            ALLOCATE( & 
     1257               & zsurfm(2,2,isurf)  & 
     1258               & ) 
     1259 
     1260            CALL obs_int_comm_2d( 2, 2, isurf, kpi, kpj, igrdi, igrdj, & 
     1261               &               surfdataqc%vdmean(:,:), zsurfm ) 
     1262 
     1263         ENDIF 
    12621264      ENDIF 
    12631265 
     
    13221324 
    13231325      ! At the end of the day also deallocate night-time mean array 
    1324       IF ( idayend == 0 .AND. ldnightav ) THEN 
    1325          DEALLOCATE( & 
    1326             & zsurfm  & 
    1327             & ) 
     1326      IF ( ldnightav ) THEN 
     1327         IF ( idayend == 0 ) THEN 
     1328            DEALLOCATE( & 
     1329               & zsurfm  & 
     1330               & ) 
     1331         ENDIF 
    13281332      ENDIF 
    13291333 
Note: See TracChangeset for help on using the changeset viewer.