Changeset 9125 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_altbias.F90

Timestamp:

2017-12-19T09:47:17+01:00 (6 years ago)

Author:

timgraham

Message:

Removed wrk_arrays from whole code. No change in SETTE results from this.

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_altbias.F90 (modified) (4 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_altbias.F90

@@ -33 +33 @@
    USE obs_utils               ! Various observation tools
    USE obs_inter_sup
-   USE wrk_nemo                ! Memory Allocation
 
    IMPLICIT NONE
@@ -99 +98 @@
          & zglam, &
          & zgphi
-      REAL(wp), POINTER, DIMENSION(:,:) ::   z_altbias
+      REAL(wp), DIMENSION(jpi,jpj) ::   z_altbias
       REAL(wp) :: zlam
       REAL(wp) :: zphi
@@ -106 +105 @@
          & igrdj
       INTEGER :: numaltbias
-
-      CALL wrk_alloc(jpi,jpj,z_altbias) 
 
       IF(lwp)WRITE(numout,*) 
@@ -201 +198 @@
          & )
          
-      CALL wrk_dealloc(jpi,jpj,z_altbias) 
-
    END SUBROUTINE obs_rea_altbias