Changeset 12364


Ignore:
Timestamp:
2020-02-10T18:21:50+01:00 (8 weeks ago)
Author:
dcarneir
Message:

Modifications in diaobs.F90 to include SIT flags

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_obs_oper_update_sit/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90

    r11953 r12364  
    195195 
    196196 
    197       LOGICAL :: ln_seaicetypes = .FALSE.          ! Logical switch inindicating data type is sea ice 
     197      LOGICAL :: ln_seaicetypes = .FALSE.          ! Logical switch indicating data type is sea ice 
    198198      LOGICAL :: ln_t3d          ! Logical switch for temperature profiles 
    199199      LOGICAL :: ln_s3d          ! Logical switch for salinity profiles 
     
    911911            ELSE IF ( TRIM(cobstypessurf(jtype)) == 'sic' ) THEN 
    912912               clvars(1) = 'ICECONC' 
     913            ELSE IF ( TRIM(cobstypessurf(jtype)) == 'sit' ) THEN 
     914               clvars(1) = 'FBD' 
     915               ln_seaicetypes = .TRUE. 
    913916            ELSE IF ( TRIM(cobstypessurf(jtype)) == 'sss' ) THEN 
    914917               clvars(1) = 'SSS' 
     
    952955               &               llnightav(jtype), ltype_clim, clvars ) 
    953956 
    954             IF ( TRIM(cobstypessurf(jtype)) == 'sit' ) THEN 
    955                ln_seaicetypes = .TRUE. 
    956             ELSE 
    957                ln_seaicetypes = .FALSE. 
    958             ENDIF            
    959957            CALL obs_pre_surf( surfdata(jtype), surfdataqc(jtype), ln_nea, ln_bound_reject, ln_seaicetypes ) 
    960958 
Note: See TracChangeset for help on using the changeset viewer.