Changeset 11460 for branches/UKMO/dev_r5518_obs_oper_update_addclim/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.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/diaobs.F90 (modified) (4 diffs)

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

@@ -33 +33 @@
    USE mpp_map                  ! MPP mapping
    USE lib_mpp                  ! For ctl_warn/stop
-   USE dtatsd                   ! For climatological temperature & salinity
-   USE tradmp                   ! ""
+   USE tradmp                   ! For climatological temperature & salinity
 
    IMPLICIT NONE
@@ -420 +419 @@
          WRITE(numout,*) '             Daily average types                             nn_profdavtypes = ', nn_profdavtypes
          WRITE(numout,*) '             Logical switch for night-time SST obs               ln_sstnight = ', ln_sstnight
-         WRITE(numout,*) '             Logical switch for writing climat. at ob locs    ln_output_clim = ', ln_output_clim
+         WRITE(numout,*) '             Logical switch for writing climat. at obs points ln_output_clim = ', ln_output_clim
       ENDIF
       !-----------------------------------------------------------------------
@@ -938 +937 @@
          & jp_spm
 #endif
-      USE tradmp, ONLY: &
-         & tclim, &
-         & sclim
 
       IMPLICIT NONE
@@ -1230 +1226 @@
                IF ( ln_output_clim ) zsurfclim(:,:) = tclim(:,:,1)
             CASE('sla')
-               zsurfvar(:,:)  = sshn(:,:)
+               zsurfvar(:,:) = sshn(:,:)
             CASE('sss')
                zsurfvar(:,:) = tsn(:,:,1,jp_sal)