Ignore:
Timestamp:
2018-11-02T18:15:27+01:00 (3 years ago)
Author:
emmafiedler
Message:

Freeboard assimilation updates

File:
1 edited

Legend:

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

    r9308 r10276  
    369369         surfdata%cext(2) = 'MDT' 
    370370      ENDIF 
     371      IF ( ldmod .AND. ( TRIM( surfdata%cvars(1) ) == 'FBD' ) ) THEN 
     372         surfdata%cext(1) = 'freeboard' 
     373         surfdata%cext(2) = 'thick_s' 
     374      ENDIF 
    371375      IF ( iextr > kextr ) surfdata%cext(iextr) = 'STD' 
    372376 
     
    450454               ! Observed value 
    451455               surfdata%robs(iobs,1) = inpfiles(jj)%pob(1,ji,1) 
     456               IF ( TRIM(surfdata%cvars(1)) == 'FBD' ) THEN 
     457                   surfdata%rext(iobs,1) = inpfiles(jj)%pob(1,ji,1) 
     458                   surfdata%rext(iobs,2) = fbrmdi 
     459               ENDIF                
    452460 
    453461               ! Model and MDT is set to fbrmdi unless read from file 
Note: See TracChangeset for help on using the changeset viewer.