Changeset 6284

Timestamp:

2016-02-03T13:24:12+01:00 (8 years ago)

Author:

drew

Message:

References to frld not needed in not key_lim2 or key_lim3 cases.

File:

• branches/UKMO/dev_r5518_seaiceobs/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90 (modified) (3 diffs)

branches/UKMO/dev_r5518_seaiceobs/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90

@@ -1024 +1024 @@
       INTEGER :: jveloset               ! velocity profile data loop variable
       INTEGER :: jvar                   ! Variable number    
-#if ! defined key_lim2 && ! defined key_lim3
-      REAL(wp), POINTER, DIMENSION(:,:) :: frld   
-#endif
       CHARACTER(LEN=20) :: datestr=" ",timestr=" "
  
-#if ! defined key_lim2 && ! defined key_lim3
-      CALL wrk_alloc(jpi,jpj,frld) 
-#endif
-
       IF(lwp) THEN
          WRITE(numout,*)
@@ -1041 +1034 @@
       idaystp = NINT( rday / rdt )
 
-      !-----------------------------------------------------------------------
-      ! No LIM => frld == 0.0_wp
-      !-----------------------------------------------------------------------
-#if ! defined key_lim2 && ! defined key_lim3
-      frld(:,:) = 0.0_wp
-#endif
       !-----------------------------------------------------------------------
       ! Depending on switches call various observation operators
@@ -1122 +1109 @@
          END DO
       ENDIF
-
-#if ! defined key_lim2 && ! defined key_lim3
-      CALL wrk_dealloc(jpi,jpj,frld) 
-#endif
 
    END SUBROUTINE dia_obs