Changeset 8667 for branches/2017/dev_r8657_UKMO_OBSoper/NEMOGCM/NEMO/OPA_SRC/OBS/obs_sstbias.F90

Timestamp:

2017-10-30T10:28:45+01:00 (6 years ago)

Author:

timgraham

Message:

Update of OBS code from local v3.6 branch to head of trunk

File:

• branches/2017/dev_r8657_UKMO_OBSoper/NEMOGCM/NEMO/OPA_SRC/OBS/obs_sstbias.F90 (modified) (3 diffs)

branches/2017/dev_r8657_UKMO_OBSoper/NEMOGCM/NEMO/OPA_SRC/OBS/obs_sstbias.F90

@@ -1 +1 @@
 MODULE obs_sstbias
    !!======================================================================
-   !!                       ***  MODULE obs_readsstbias  ***
-   !! Observation diagnostics: Read the bias for SLA data
+   !!                       ***  MODULE obs_sstbias  ***
+   !! Observation diagnostics: Read the bias for SST data
    !!======================================================================
    !!----------------------------------------------------------------------
-   !!   obs_rea_sstbias : Driver for reading altimeter bias
+   !!   obs_app_sstbias : Driver for reading and applying the SST bias
    !!----------------------------------------------------------------------
    !! * Modules used   
@@ -139 +139 @@
                cl_bias_files(jtype) )
             ! Get the SST bias data
-            CALL iom_get( numsstbias, jpdom_data, 'sst', z_sstbias_2d(:,:), 1 )
+            CALL iom_get( numsstbias, jpdom_data, 'tn', z_sstbias_2d(:,:), 1 )
             z_sstbias(:,:,jtype) = z_sstbias_2d(:,:)       
             ! Close the file
@@ -190 +190 @@
                igrdj_tmp(:,:,jt) = igrdj(:,:,jobs)
                zglam_tmp(:,:,jt) = zglam(:,:,jobs)
-               zgphi_tmp(:,:,jt) = zgphi(:,:,jobs)
                zgphi_tmp(:,:,jt) = zgphi(:,:,jobs)
                zmask_tmp(:,:,jt) = zmask(:,:,jobs)