Changeset 12364 for branches

Timestamp:

2020-02-10T18:21:50+01:00 (4 years ago)

Author:

dcarneir

Message:

Modifications in diaobs.F90 to include SIT flags

File:

• branches/UKMO/dev_r5518_obs_oper_update_sit/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90 (modified) (3 diffs)

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

@@ -195 +195 @@
 
 
-      LOGICAL :: ln_seaicetypes = .FALSE.          ! Logical switch inindicating data type is sea ice
+      LOGICAL :: ln_seaicetypes = .FALSE.          ! Logical switch indicating data type is sea ice
       LOGICAL :: ln_t3d          ! Logical switch for temperature profiles
       LOGICAL :: ln_s3d          ! Logical switch for salinity profiles
@@ -911 +911 @@
             ELSE IF ( TRIM(cobstypessurf(jtype)) == 'sic' ) THEN
                clvars(1) = 'ICECONC'
+            ELSE IF ( TRIM(cobstypessurf(jtype)) == 'sit' ) THEN
+               clvars(1) = 'FBD'
+               ln_seaicetypes = .TRUE.
             ELSE IF ( TRIM(cobstypessurf(jtype)) == 'sss' ) THEN
                clvars(1) = 'SSS'
@@ -952 +955 @@
                &               llnightav(jtype), ltype_clim, clvars )
 
-            IF ( TRIM(cobstypessurf(jtype)) == 'sit' ) THEN
-               ln_seaicetypes = .TRUE.
-            ELSE
-               ln_seaicetypes = .FALSE.
-            ENDIF           
             CALL obs_pre_surf( surfdata(jtype), surfdataqc(jtype), ln_nea, ln_bound_reject, ln_seaicetypes )