Changeset 6284


Ignore:
Timestamp:
2016-02-03T13:24:12+01:00 (6 years ago)
Author:
drew
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_seaiceobs/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90

    r6283 r6284  
    10241024      INTEGER :: jveloset               ! velocity profile data loop variable 
    10251025      INTEGER :: jvar                   ! Variable number     
    1026 #if ! defined key_lim2 && ! defined key_lim3 
    1027       REAL(wp), POINTER, DIMENSION(:,:) :: frld    
    1028 #endif 
    10291026      CHARACTER(LEN=20) :: datestr=" ",timestr=" " 
    10301027  
    1031 #if ! defined key_lim2 && ! defined key_lim3 
    1032       CALL wrk_alloc(jpi,jpj,frld)  
    1033 #endif 
    1034  
    10351028      IF(lwp) THEN 
    10361029         WRITE(numout,*) 
     
    10411034      idaystp = NINT( rday / rdt ) 
    10421035 
    1043       !----------------------------------------------------------------------- 
    1044       ! No LIM => frld == 0.0_wp 
    1045       !----------------------------------------------------------------------- 
    1046 #if ! defined key_lim2 && ! defined key_lim3 
    1047       frld(:,:) = 0.0_wp 
    1048 #endif 
    10491036      !----------------------------------------------------------------------- 
    10501037      ! Depending on switches call various observation operators 
     
    11221109         END DO 
    11231110      ENDIF 
    1124  
    1125 #if ! defined key_lim2 && ! defined key_lim3 
    1126       CALL wrk_dealloc(jpi,jpj,frld)  
    1127 #endif 
    11281111 
    11291112   END SUBROUTINE dia_obs 
Note: See TracChangeset for help on using the changeset viewer.