Changeset 8313 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90

Timestamp:

2017-07-10T20:24:21+02:00 (7 years ago)

Author:

clem

Message:

STEP2 (2): remove obsolete features

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90 (modified) (6 diffs)

branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90

@@ -539 +539 @@
 #if defined  key_lim3
       USE ice, ONLY : &            ! LIM3 Ice model variables
-         & frld
+         & at_i
 #endif
       IMPLICIT NONE
@@ -564 +564 @@
          & zgphi2                  ! Model latitudes for prof variable 2
 #if ! defined key_lim3
-      REAL(wp), POINTER, DIMENSION(:,:) :: frld
+      REAL(wp), POINTER, DIMENSION(:,:) :: at_i
 #endif
       LOGICAL :: llnightav        ! Logical for calculating night-time average
@@ -579 +579 @@
       CALL wrk_alloc( jpi, jpj, zgphi2 )
 #if ! defined key_lim3
-      CALL wrk_alloc(jpi,jpj,frld) 
+      CALL wrk_alloc(jpi,jpj,at_i) 
 #endif
 
@@ -591 +591 @@
 
       !-----------------------------------------------------------------------
-      ! No LIM => frld == 0.0_wp
+      ! No LIM => at_i == 0.0_wp
       !-----------------------------------------------------------------------
 #if ! defined key_lim3
-      frld(:,:) = 0.0_wp
+      at_i(:,:) = 0.0_wp
 #endif
       !-----------------------------------------------------------------------
@@ -674 +674 @@
                   CYCLE
                ELSE
-                  zsurfvar(:,:) = 1._wp - frld(:,:)
+                  zsurfvar(:,:) = at_i(:,:)
                ENDIF
 
@@ -699 +699 @@
       CALL wrk_dealloc( jpi, jpj, zgphi2 )
 #if ! defined key_lim3
-      CALL wrk_dealloc(jpi,jpj,frld)
+      CALL wrk_dealloc(jpi,jpj,at_i)
 #endif