New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 6286 – NEMO

Changeset 6286


Ignore:
Timestamp:
2016-02-04T10:28:40+01:00 (8 years ago)
Author:
kingr
Message:

Reverted some changes to obs_prep use for debugging.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r4650_general_vert_coord_obsoper/NEMOGCM/NEMO/OPA_SRC/OBS/obs_prep.F90

    r6285 r6286  
    2626      & obs_mpp_sum_integers 
    2727   USE obs_inter_sup      ! Interpolation support 
     28   USE obs_oper           ! Observation operators 
    2829   USE lib_mpp, ONLY : & 
    2930      & 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 
    4531 
    4632   IMPLICIT NONE 
    … …  
    8975      USE domstp              ! Domain: set the time-step 
    9076      USE par_oce             ! Ocean parameters 
     77      USE dom_oce, ONLY : &   ! Geographical information 
     78         & glamt,   & 
     79         & gphit,   & 
     80         & gdept_1d,& 
     81         & tmask      
    9182      !! * Arguments 
    9283      TYPE(obs_prof), INTENT(INOUT) :: profdata     ! Full set of profile data 
    … …  
    367358      USE domstp              ! Domain: set the time-step 
    368359      USE par_oce             ! Ocean parameters 
     360      USE dom_oce, ONLY : &   ! Geographical information 
     361         & glamt,   & 
     362         & gphit,   & 
     363         & tmask          
    369364      !! * Arguments 
    370365      TYPE(obs_surf), INTENT(INOUT) :: sladata    ! Full set of SLA data 
    … …  
    550545      USE domstp              ! Domain: set the time-step 
    551546      USE par_oce             ! Ocean parameters 
     547      USE dom_oce, ONLY : &   ! Geographical information 
     548         & glamt,   & 
     549         & gphit,   & 
     550         & tmask 
    552551      !! * Arguments 
    553552      TYPE(obs_surf), INTENT(INOUT) :: sstdata     ! Full set of SST data 
    … …  
    730729      USE domstp              ! Domain: set the time-step 
    731730      USE par_oce             ! Ocean parameters 
     731      USE dom_oce, ONLY : &   ! Geographical information 
     732         & glamt,   & 
     733         & gphit,   & 
     734         & tmask 
    732735      !! * Arguments 
    733736      TYPE(obs_surf), INTENT(INOUT) :: seaicedata     ! Full set of Sea Ice data 
    … …  
    909912      USE domstp              ! Domain: set the time-step 
    910913      USE par_oce             ! Ocean parameters 
     914      USE dom_oce, ONLY : &   ! Geographical information 
     915         & glamt, glamu, glamv,    & 
     916         & gphit, gphiu, gphiv,    & 
     917         & gdept_1d,             & 
     918         & tmask, umask, vmask 
    911919      !! * Arguments 
    912920      TYPE(obs_prof), INTENT(INOUT) :: profdata   ! Full set of profile data 
    … …  
    12041212      !!---------------------------------------------------------------------- 
    12051213      !! * Modules used 
     1214      USE dom_oce, ONLY : &  ! Geographical information 
     1215         & rdt 
    12061216      USE phycst, ONLY : &   ! Physical constants 
    12071217         & rday,  &              
    … …  
    16961706      !!---------------------------------------------------------------------- 
    16971707      !! * Modules used 
    1698   
     1708      USE dom_oce, ONLY : &       ! Geographical information 
     1709         & gdepw_1d,      & 
     1710         & gdepw_0,       &                        
     1711#if defined key_vvl 
     1712         & gdepw_n,       &  
     1713         & gdept_n,       & 
     1714#endif 
     1715         & ln_zco,        & 
     1716         & ln_zps,        & 
     1717         & lk_vvl                         
    16991718      !! * Arguments 
    17001719      INTEGER, INTENT(IN) :: kprofno      ! Number of profiles 
Note: See TracChangeset for help on using the changeset viewer.