Changeset 6285
- Timestamp:
- 2016-02-04T07:23:48+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r4650_general_vert_coord_obsoper/NEMOGCM/NEMO/OPA_SRC/OBS/obs_prep.F90
r6273 r6285 26 26 & obs_mpp_sum_integers 27 27 USE obs_inter_sup ! Interpolation support 28 USE obs_oper ! Observation operators29 28 USE lib_mpp, ONLY : & 30 29 & ctl_warn, ctl_stop 30 USE dom_oce, ONLY : & ! Geographical information 31 & glamt, glamu, glamv, & 32 & gphit, gphiu, gphiv, & 33 & gdept_1d, & 34 & tmask, umask, vmask, & 35 & nproc, rdt, & 36 & gdepw_1d, & 37 & gdepw_0, & 38 #if defined key_vvl 39 & gdepw_n, & 40 & gdept_n, & 41 #endif 42 & ln_zco, & 43 & ln_zps, & 44 & lk_vvl 31 45 32 46 IMPLICIT NONE … … 75 89 USE domstp ! Domain: set the time-step 76 90 USE par_oce ! Ocean parameters 77 USE dom_oce, ONLY : & ! Geographical information78 & glamt, &79 & gphit, &80 & gdept_1d,&81 & tmask, &82 & nproc83 91 !! * Arguments 84 92 TYPE(obs_prof), INTENT(INOUT) :: profdata ! Full set of profile data … … 359 367 USE domstp ! Domain: set the time-step 360 368 USE par_oce ! Ocean parameters 361 USE dom_oce, ONLY : & ! Geographical information362 & glamt, &363 & gphit, &364 & tmask, &365 & nproc366 369 !! * Arguments 367 370 TYPE(obs_surf), INTENT(INOUT) :: sladata ! Full set of SLA data … … 547 550 USE domstp ! Domain: set the time-step 548 551 USE par_oce ! Ocean parameters 549 USE dom_oce, ONLY : & ! Geographical information550 & glamt, &551 & gphit, &552 & tmask, &553 & nproc554 552 !! * Arguments 555 553 TYPE(obs_surf), INTENT(INOUT) :: sstdata ! Full set of SST data … … 732 730 USE domstp ! Domain: set the time-step 733 731 USE par_oce ! Ocean parameters 734 USE dom_oce, ONLY : & ! Geographical information735 & glamt, &736 & gphit, &737 & tmask, &738 & nproc739 732 !! * Arguments 740 733 TYPE(obs_surf), INTENT(INOUT) :: seaicedata ! Full set of Sea Ice data … … 916 909 USE domstp ! Domain: set the time-step 917 910 USE par_oce ! Ocean parameters 918 USE dom_oce, ONLY : & ! Geographical information919 & glamt, glamu, glamv, &920 & gphit, gphiu, gphiv, &921 & gdept_1d, &922 & tmask, umask, vmask, &923 & nproc924 911 !! * Arguments 925 912 TYPE(obs_prof), INTENT(INOUT) :: profdata ! Full set of profile data … … 1217 1204 !!---------------------------------------------------------------------- 1218 1205 !! * Modules used 1219 USE dom_oce, ONLY : & ! Geographical information1220 & rdt1221 1206 USE phycst, ONLY : & ! Physical constants 1222 1207 & rday, & … … 1711 1696 !!---------------------------------------------------------------------- 1712 1697 !! * Modules used 1713 USE dom_oce, ONLY : & ! Geographical information1714 & gdepw_1d, &1715 & gdepw_0, &1716 #if defined key_vvl1717 & gdepw_n, &1718 & gdept_n, &1719 #endif1720 & ln_zco, &1721 & ln_zps, &1722 & lk_vvl1723 1698 1724 1699 !! * Arguments … … 1849 1824 & .OR. ( pobsphi(jobs) < -90. ) & 1850 1825 & .OR. ( pobsphi(jobs) > 90. ) & 1851 & .OR. ( pobsdep(jobsp) < 0.0 ) & 1852 & .OR. ( pobsdep(jobsp) > gdepw_1d(kpk)) ) THEN 1826 & .OR. ( pobsdep(jobsp) < 0.0 ) ) THEN 1853 1827 kobsqc(jobsp) = kobsqc(jobsp) + 11 1854 1828 kosdobs = kosdobs + 1 … … 1886 1860 IF ( ANY( zgdepw(1:2,1:2,kpk,jobs) < pobsdep(jobsp) ) & 1887 1861 & .OR. & 1888 & ( SUM( zgmsk(1:2,1:2,kobsk(jobsp)-1:kobsk(jobsp),jobs) ) & 1889 & == 0.0_wp) ) THEN 1862 & ( SUM( zgmsk(1,1,kobsk(jobsp)-1:kobsk(jobsp),jobs)) == 0.0_wp ) .OR. & 1863 & ( SUM( zgmsk(1,2,kobsk(jobsp)-1:kobsk(jobsp),jobs)) == 0.0_wp ) .OR. & 1864 & ( SUM( zgmsk(2,1,kobsk(jobsp)-1:kobsk(jobsp),jobs)) == 0.0_wp ) .OR. & 1865 & ( SUM( zgmsk(2,2,kobsk(jobsp)-1:kobsk(jobsp),jobs)) == 0.0_wp ) ) THEN 1890 1866 kobsqc(jobsp) = kobsqc(jobsp) + 12 1891 1867 klanobs = klanobs + 1
Note: See TracChangeset
for help on using the changeset viewer.