Changeset 7421 for branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/OBS

Timestamp:

2016-12-01T18:10:41+01:00 (8 years ago)

Author:

flavoni

Message:

#1811 merge dev_CNRS_MERATOR_2016 with dev_merge_2016 branch

Location:

branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/OBS

Files:

• obs_conv_functions.h90 (modified) (1 diff)
• obs_prep.F90 (modified) (6 diffs)

branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/OBS/obs_conv_functions.h90

@@ -71 +71 @@
 
       !! * Arguments
-      REAL(KIND=wp) :: pft   ! in situ temperature in degrees celcius
+      REAL(KIND=wp) :: pft   ! in situ temperature in degrees Celsius
       REAL(KIND=wp) :: pfs   ! salinity in psu
       REAL(KIND=wp) :: pfp   ! pressure in bars

branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/OBS/obs_prep.F90

@@ -13 +13 @@
    !!   obs_sor       : Sort the observation arrays
    !!---------------------------------------------------------------------
-   !! * Modules used
-   USE par_kind, ONLY : & ! Precision variables
-      & wp   
+   USE par_kind, ONLY : wp ! Precision variables
    USE in_out_manager     ! I/O manager
    USE obs_profiles_def   ! Definitions for storage arrays for profiles
@@ -24 +22 @@
    USE obs_inter_sup      ! Interpolation support
    USE obs_oper           ! Observation operators
-   USE lib_mpp, ONLY : &
-      & ctl_warn, ctl_stop
+   USE lib_mpp, ONLY :   ctl_warn, ctl_stop
 
    IMPLICIT NONE
-
-   !! * Routine accessibility
    PRIVATE
 
-   PUBLIC &
-      & obs_pre_prof, &    ! First level check and screening of profile obs
-      & obs_pre_surf, &    ! First level check and screening of surface obs
-      & calc_month_len     ! Calculate the number of days in the months of a year
+   PUBLIC   obs_pre_prof     ! First level check and screening of profile obs
+   PUBLIC   obs_pre_surf     ! First level check and screening of surface obs
+   PUBLIC   calc_month_len   ! Calculate the number of days in the months of a year
 
    !!----------------------------------------------------------------------
@@ -63 +57 @@
       !!        !  2015-02  (M. Martin) Combined routine for surface types.
       !!----------------------------------------------------------------------
-      !! * Modules used
-      USE domstp              ! Domain: set the time-step
       USE par_oce             ! Ocean parameters
-      USE dom_oce, ONLY : &   ! Geographical information
-         & glamt,   &
-         & gphit,   &
-         & tmask,   &
-         & nproc
+      USE dom_oce, ONLY       :   glamt, gphit, tmask, nproc   ! Geographical information
       !! * Arguments
       TYPE(obs_surf), INTENT(INOUT) :: surfdata    ! Full set of surface data
       TYPE(obs_surf), INTENT(INOUT) :: surfdataqc   ! Subset of surface data not failing screening
       LOGICAL, INTENT(IN) :: ld_nea         ! Switch for rejecting observation near land
-      !! * Local declarations
+      !
       INTEGER :: iyea0        ! Initial date
       INTEGER :: imon0        !  - (year, month, day, hour, minute)
@@ -94 +82 @@
       INTEGER :: inlasobsmpp    !  - close to land
       INTEGER :: igrdobsmpp     !  - fail the grid search
-      LOGICAL, DIMENSION(:), ALLOCATABLE :: & 
-         & llvalid            ! SLA data selection
+      LOGICAL, DIMENSION(:), ALLOCATABLE ::   llvalid            ! SLA data selection
       INTEGER :: jobs         ! Obs. loop variable
       INTEGER :: jstp         ! Time loop variable
       INTEGER :: inrc         ! Time index variable
-
-      IF(lwp) WRITE(numout,*)'obs_pre_surf : Preparing the surface observations...'
-      IF(lwp) WRITE(numout,*) '~~~~~~~~~~~'
+      !!----------------------------------------------------------------------
+
+      IF(lwp) WRITE(numout,*) 'obs_pre_surf : Preparing the surface observations...'
+      IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~'
       
       ! Initial date initialization (year, month, day, hour, minute)
@@ -253 +241 @@
       !!
       !!----------------------------------------------------------------------
-      !! * Modules used
-      USE domstp              ! Domain: set the time-step
-      USE par_oce             ! Ocean parameters
-      USE dom_oce, ONLY : &   ! Geographical information
-         & gdept_1d,             &
-         & nproc
+      USE par_oce           ! Ocean parameters
+      USE dom_oce, ONLY :   gdept_1d, nproc   ! Geographical information
 
       !! * Arguments
@@ -314 +298 @@
       INTEGER :: jstp         ! Time loop variable
       INTEGER :: inrc         ! Time index variable
+      !!----------------------------------------------------------------------
 
       IF(lwp) WRITE(numout,*)'obs_pre_prof: Preparing the profile data...'