Changeset 11460 for branches/UKMO/dev_r5518_obs_oper_update_addclim/NEMOGCM/NEMO/OPA_SRC/OBS/obs_readmdt.F90

Timestamp:

2019-08-20T11:41:01+02:00 (5 years ago)

Author:

mattmartin

Message:

Minor changes.

File:

• branches/UKMO/dev_r5518_obs_oper_update_addclim/NEMOGCM/NEMO/OPA_SRC/OBS/obs_readmdt.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_obs_oper_update_addclim/NEMOGCM/NEMO/OPA_SRC/OBS/obs_readmdt.F90

@@ -37 +37 @@
    REAL(wp), PUBLIC :: rn_mdtcorr   = 1.61_wp  ! User specified MDT correction
    REAL(wp), PUBLIC :: rn_mdtcutoff = 65.0_wp  ! MDT cutoff for computed correction
-   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::  mdt_fld    !: Mean Dynamic Topography on the model grid
    
    !!----------------------------------------------------------------------
@@ -93 +92 @@
       CALL iom_get ( nummdt, jpdom_data, 'sossheig', z_mdt(:,:), 1 )
       CALL iom_close(nummdt)                 ! Close the file
-      
-      ! Set the MDT gridded field to be the one read in directly with no adjustments
-      ALLOCATE( mdt_fld(jpi,jpj) )
-      mdt_fld(:,:) = z_mdt(:,:)
-      
+           
       ! Read in the fill value
       zinfill = 0.0