Changeset 11027 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/OBS/diaobs.F90
- Timestamp:
- 2019-05-21T17:33:54+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/OBS/diaobs.F90
r10922 r11027 460 460 ! 461 461 IF( TRIM(cobstypessurf(jtype)) == 'sla' ) THEN 462 CALL obs_rea_mdt( surfdataqc(jtype), n2dintsurf(jtype) )462 CALL obs_rea_mdt( surfdataqc(jtype), n2dintsurf(jtype), Kmm ) 463 463 IF( ln_altbias ) & 464 464 & CALL obs_rea_altbias ( surfdataqc(jtype), n2dintsurf(jtype), cn_altbiasfile ) … … 499 499 USE dom_oce, ONLY : gdept, gdept_1d ! Ocean space domain variables (Kmm time-level only) 500 500 USE phycst , ONLY : rday ! Physical constants 501 USE oce , ONLY : ts, uu, vv, ssh n! Ocean dynamics and tracers variables (Kmm time-level only)501 USE oce , ONLY : ts, uu, vv, ssh ! Ocean dynamics and tracers variables (Kmm time-level only) 502 502 USE phycst , ONLY : rday ! Physical constants 503 503 #if defined key_si3 … … 598 598 zsurfvar(:,:) = ts(:,:,1,jp_tem,Kmm) 599 599 CASE('sla') 600 zsurfvar(:,:) = ssh n(:,:)600 zsurfvar(:,:) = ssh(:,:,Kmm) 601 601 CASE('sss') 602 602 zsurfvar(:,:) = ts(:,:,1,jp_sal,Kmm)
Note: See TracChangeset
for help on using the changeset viewer.