Changeset 2638 for branches/dev_r2586_dynamic_mem

Timestamp:

2011-03-02T16:36:38+01:00 (13 years ago)

Author:

trackstand2

Message:

Added USE lib_mpp for access to ctl_warn and ctl_stop

Location:

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/OBS

Files:

• diaobs.F90 (modified) (1 diff)
• julian.F90 (modified) (1 diff)
• obs_grid.F90 (modified) (1 diff)
• obs_inter_h2d.F90 (modified) (1 diff)
• obs_oper.F90 (modified) (1 diff)
• obs_prep.F90 (modified) (1 diff)
• obs_profiles_def.F90 (modified) (1 diff)
• obs_read_prof.F90 (modified) (1 diff)
• obs_read_vel.F90 (modified) (1 diff)
• obs_readmdt.F90 (modified) (1 diff)
• obs_utils.F90 (modified) (1 diff)

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90

@@ -39 +39 @@
    USE obs_types                ! Definitions for observation types
    USE mpp_map                  ! MPP mapping
+   USE lib_mpp                  ! For ctl_warn/stop
 
    IMPLICIT NONE

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/OBS/julian.F90

@@ -13 +13 @@
       & wp, &
       & dp  
-   USE in_out_manager           ! I/O manager
-  
+   !USE in_out_manager           ! I/O manager
+   USE lib_mpp,  ONLY : &
+      & ctl_warn, ctl_stop
+
    IMPLICIT NONE
 

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/OBS/obs_grid.F90

@@ -33 +33 @@
    USE obs_const, ONLY :      &
       & obfillflt                  ! Fillvalue   
-   
+   USE lib_mpp, ONLY :   &
+      & ctl_warn, ctl_stop
+
    IMPLICIT NONE
 

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/OBS/obs_inter_h2d.F90

@@ -28 +28 @@
       & obfillflt    ! Fillvalue
    USE obs_utils           ! Utility functions
-   
+      USE lib_mpp,ONLY : &
+      & ctl_warn, ctl_stop
+
    IMPLICIT NONE
 

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/OBS/obs_oper.F90

@@ -38 +38 @@
       & glamt, glamu, glamv, &
       & gphit, gphiu, gphiv
+   USE lib_mpp,       ONLY : &
+      & ctl_warn, ctl_stop
 
    IMPLICIT NONE

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/OBS/obs_prep.F90

@@ -27 +27 @@
    USE obs_inter_sup      ! Interpolation support
    USE obs_oper           ! Observation operators
+   USE lib_mpp, ONLY : &
+      & ctl_warn, ctl_stop
 
    IMPLICIT NONE

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/OBS/obs_profiles_def.F90

@@ -29 +29 @@
       obs_mpp_sum_integers
    USE obs_fbm            ! Obs feedback format
+   USE lib_mpp, ONLY : &
+      & ctl_warn, ctl_stop
 
    IMPLICIT NONE

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_prof.F90

@@ -26 +26 @@
    USE obs_oper                 ! Observation operators
    USE obs_prof_io              ! Profile files I/O (non-FB files)
+   USE lib_mpp                  ! For ctl_warn/stop
 
    IMPLICIT NONE

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_vel.F90

@@ -26 +26 @@
    USE obs_oper                 ! Observation operators
    USE obs_vel_io               ! Velocity profile files I/O (non-FB files)
+   USE lib_mpp                  ! For ctl_warn/stop
 
    IMPLICIT NONE

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/OBS/obs_readmdt.F90

@@ -41 +41 @@
    USE iom_nf90   
    USE netcdf                   ! NetCDF library
+   USE lib_mpp                  ! For ctl_warn/stop
 
    IMPLICIT NONE

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/OBS/obs_utils.F90

@@ -19 +19 @@
       & i8  
    USE in_out_manager           ! I/O manager
-  
+   USE lib_mpp                  ! For ctl_warn/stop
+
    IMPLICIT NONE