Changeset 15396 for branches/UKMO/dev_r5518_obs_oper_update_DepthBug/NEMOGCM/NEMO/OPA_SRC/OBS/obsinter_z1d.h90
 Timestamp:
 20211019T09:35:50+02:00 (3 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

branches/UKMO/dev_r5518_obs_oper_update_DepthBug/NEMOGCM/NEMO/OPA_SRC/OBS/obsinter_z1d.h90
r15365 r15396 62 62 z1dm = ( pdep(kkco(jdep))  pobsdep(jdep) ) 63 63 z1dp = ( pobsdep(jdep)  pdep(kkco(jdep)1) ) 64 64 65 65 66 ! Where both levels are masked, return a fill value 66 IF ( pobsmask(kkco(jdep)1) == 0.0_wp ) .and. (pobsmask(kkco(jdep)) == 0.0_wp) THEN67 IF ( ( pobsmask(kkco(jdep)1) == 0.0_wp ) .AND. (pobsmask(kkco(jdep)) == 0.0_wp) ) THEN 67 68 pobs(jdep) = 99999. 68 69 ELSE 69 70 70 71 ! Where upper level is masked (e.g., under ice cavity), only use deeper level 71 IF ( pobsmask(kkco(jdep)1) == 0.0_wp ) z1dm = 0.0_wp 72 ! otherwise where ob is at or above upper level model Tpoint, 73 ! use upper model level rather than extrapolate 74 IF ( pobsmask(kkco(jdep)1) == 0.0_wp ) THEN 75 z1dm = 0.0_wp 76 ELSE IF ( pobsdep(jdep) <= pdep(kkco(jdep)1) ) THEN 77 z1dp = 0.0_wp 78 END IF 72 79 73 80 ! Where deeper level is masked (e.g., near sea bed), only use upper level 74 IF ( pobsmask(kkco(jdep)) == 0.0_wp ) z1dp = 0.0_wp 75 76 ! Where ob is at or above upper level model Tpoint, use upper model level 77 ! rather than extrapolate, except where that level is masked 78 IF ( pobsdep(jdep) <= pdep(kkco(jdep)1) ) .and. & 79 & ( pobsmask(kkco(jdep)1) == 0.0_wp ) ) z1dp = 0.0_wp 80 81 ! Where ob is at or below deeper level model Tpoint, use deeper model level 82 ! rather than extrapolate, except where that level is masked 83 IF ( pobsdep(jdep) >= pdep(kkco(jdep)) ) .and. & 84 & ( pobsmask(kkco(jdep)) == 0.0_wp ) ) z1dm = 0.0_wp 85 81 ! otherwise where ob is at or below deeper level model Tpoint, 82 ! use deeper model level rather than extrapolate 83 IF ( pobsmask(kkco(jdep)) == 0.0_wp ) THEN 84 z1dp = 0.0_wp 85 ELSE IF ( pobsdep(jdep) >= pdep(kkco(jdep)) ) THEN 86 z1dm = 0.0_wp 87 END IF 86 88 87 89 zsum = z1dm + z1dp … … 109 111 110 112 ENDIF 113 ENDIF 111 114 END DO 112 115
Note: See TracChangeset
for help on using the changeset viewer.