Ignore:
Timestamp:
2020-03-26T11:57:02+01:00 (18 months ago)
Author:
dcarneir
Message:

Inclusion of sea ice thickness in OBS branch

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_obs_oper_update/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_surf.F90

    r12140 r12610  
    396396         surfdata%cext(2) = 'MDT' 
    397397      ENDIF 
     398      IF ( ldmod .AND. ( TRIM( surfdata%cvars(1) ) == 'FBD' ) ) THEN 
     399           surfdata%cext(1) = 'freeboard' 
     400           surfdata%cext(2) = 'thick_s' 
     401      ENDIF 
    398402      IF ( iextr > kextr ) surfdata%cext(iextr) = 'STD' 
    399403 
     
    477481               ! Observed value 
    478482               surfdata%robs(iobs,1) = inpfiles(jj)%pob(1,ji,1) 
     483               IF ( TRIM(surfdata%cvars(1)) == 'FBD' ) THEN 
     484                   surfdata%rext(iobs,1) = inpfiles(jj)%pob(1,ji,1) 
     485                   surfdata%rext(iobs,2) = fbrmdi 
     486               ENDIF 
    479487 
    480488               ! Model and MDT is set to fbrmdi unless read from file 
Note: See TracChangeset for help on using the changeset viewer.