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 4110 – NEMO

Changeset 4110


Ignore:
Timestamp:
2013-10-22T22:53:28+02:00 (10 years ago)
Author:
andrewryan
Message:

Added headers to each module in OOO_SRC and corrected positions of IMPLICIT NONE and PUBLIC subroutines.

Location:
branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO/OOO_SRC
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO/OOO_SRC/obs_fbm.F90

    r4106 r4110  
    15721572      USE ooo_write 
    15731573      USE ooo_data 
    1574       IMPLICIT NONE 
    15751574      !! * Arguments 
    15761575      CHARACTER(len=*) :: cdfilename ! Feedback filename 
    … …  
    17721771      !! ** Method  : 1. Inspect cdfilename for observation kind. 
    17731772      !!---------------------------------------------------------------------- 
    1774       IMPLICIT NONE 
    17751773      CHARACTER(len=*) :: cdfilename ! Feedback filename 
    17761774      CHARACTER(len=8) :: ckind 

  • branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO/OOO_SRC/ooo_data.F90

    r4106 r4110  
    11MODULE ooo_data 
     2   !! ================================================================= 
     3   !!                    *** MODULE ooo_data *** 
     4   !! ================================================================= 
    25   USE par_kind, ONLY: lc 
     6 
    37   IMPLICIT NONE 
     8 
     9   !! Public data 
     10 
    411   INTEGER, PARAMETER :: MaxNumFiles = 1000 
    512 
    … …  
    4249      !!---------------------------------------------------------------------- 
    4350      USE in_out_manager 
    44       IMPLICIT NONE 
    4551      INTEGER            :: & 
    4652         & jf                           !: file dummy loop index 

  • branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO/OOO_SRC/ooo_read.F90

    r4108 r4110  
    11 
    22MODULE ooo_read 
    3    !!====================================================================== 
    4    !!                      *** MODULE ooo_read *** 
     3   !!================================================================== 
     4   !!                    *** MODULE ooo_read *** 
    55   !! Read routines : I/O for offline obs_oper 
    6    !!====================================================================== 
    7  
    8 USE mppini 
    9 USE lib_mpp 
    10 USE in_out_manager 
    11 USE par_kind, ONLY: lc 
    12 USE netcdf 
    13 USE oce,     ONLY: tsn, sshn 
    14 USE dom_oce, ONLY: nlci, nlcj, nimpp, njmpp, tmask 
    15 USE par_oce, ONLY: jpi, jpj, jpk 
    16 USE obs_fbm, ONLY: fbimdi, fbrmdi, fbsp, fbdp 
    17  
    18 USE ooo_data 
    19 !! * Routine accessibility 
    20 PRIVATE 
    21  
    22 PUBLIC ooo_rea_dri 
     6   !!================================================================== 
     7 
     8   USE mppini 
     9   USE lib_mpp 
     10   USE in_out_manager 
     11   USE par_kind, ONLY: lc 
     12   USE netcdf 
     13   USE oce,     ONLY: tsn, sshn 
     14   USE dom_oce, ONLY: nlci, nlcj, nimpp, njmpp, tmask 
     15   USE par_oce, ONLY: jpi, jpj, jpk 
     16   USE obs_fbm, ONLY: fbimdi, fbrmdi, fbsp, fbdp 
     17   USE ooo_data 
     18 
     19   IMPLICIT NONE 
     20   PRIVATE 
     21 
     22   PUBLIC ooo_rea_dri 
    2323 
    2424CONTAINS 
    2525   SUBROUTINE ooo_rea_dri(kfile) 
    26       IMPLICIT NONE 
    2726      !!------------------------------------------------------------------------ 
    2827      !!             *** ooo_rea_dri *** 
    … …  
    6867 
    6968   SUBROUTINE ooo_read_altbias(filename) 
    70       IMPLICIT NONE 
    7169      !!------------------------------------------------------------------------ 
    7270      !!                      *** ooo_read_altbias *** 
    … …  
    143141 
    144142   SUBROUTINE ooo_read_file(filename, ifcst) 
    145       IMPLICIT NONE 
    146143      !!------------------------------------------------------------------------ 
    147144      !!             *** ooo_read_file *** 
    … …  
    272269   SUBROUTINE ooo_read_juld(filename, ifcst, julian) 
    273270      USE calendar 
    274       IMPLICIT NONE 
    275271      !!-------------------------------------------------------------------- 
    276272      !!                 *** ooo_read_juld *** 

  • branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO/OOO_SRC/ooo_utils.F90

    r4109 r4110  
    11MODULE ooo_utils 
     2   !! ================================================================= 
     3   !!                    *** MODULE ooo_utils *** 
     4   !! ================================================================= 
     5 
    26   USE obs_utils, ONLY: chkerr 
    37   USE obs_const, ONLY: obfillflt 
    … …  
    59   USE obs_types, ONLY: cwmonam1770 
    610   USE obs_sla, ONLY: nslasets 
     11 
     12   IMPLICIT NONE 
    713 
    814   ! Define double precision obfillflt 
    … …  
    1218 
    1319   SUBROUTINE yyyymmdd_to_ref_date(indate, intime, outstring) 
    14       IMPLICIT NONE 
    1520      !---------------------------------------- 
    1621      ! Routine to create reference date string 
    … …  
    4045 
    4146   SUBROUTINE date_format(date_str) 
    42       IMPLICIT NONE 
    4347      !--------------------------------------- 
    4448      ! Routine to create creation date string 
    … …  
    6468 
    6569   SUBROUTINE inst_converter(wmo_inst_list, nprofs, obs_names) 
    66       IMPLICIT NONE 
    6770      !--------------------------------------- 
    6871      ! Routine to convert WMO_INST_TYPE to 

  • branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO/OOO_SRC/ooo_write.F90

    r4109 r4110  
    33   !!                       ***  MODULE ooo_write  *** 
    44   !!====================================================================== 
     5 
    56   USE in_out_manager 
    67   USE netcdf 
    … …  
    89   USE ooo_utils, ONLY: date_format, inst_converter, yyyymmdd_to_ref_date 
    910   USE ooo_data 
     11 
    1012   IMPLICIT NONE 
    1113   PRIVATE 

  • branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO/OOO_SRC/ooomod.F90

    r4106 r4110  
    11MODULE ooomod 
    2    !!---------------------------------------------------------------------- 
     2   !!====================================================================== 
    33   !!                    ***  MODULE ooo *** 
    44   !! ** Purpose : Run NEMO observation operator in offline mode 
    5    !!---------------------------------------------------------------------- 
     5   !!====================================================================== 
    66   !! NEMO modules 
    77   USE diaobs 
    … …  
    1313   USE ooo_data 
    1414   USE ooo_read 
     15 
     16   IMPLICIT NONE 
     17   PRIVATE 
     18 
     19   PUBLIC offline_obs_oper 
     20 
    1521   CONTAINS 
    1622      SUBROUTINE ooo_init 
    … …  
    2127         !! 
    2228         !!---------------------------------------------------------------------- 
    23          IMPLICIT NONE 
    2429         !! Initialise NEMO 
    2530         CALL nemo_init 
    … …  
    3641         !! 
    3742         !!---------------------------------------------------------------------- 
    38          IMPLICIT NONE 
    3943         !! Initialise offline obs_oper 
    4044         CALL ooo_init 
    … …  
    6569         !!             2. Call dia_obs at appropriate time steps 
    6670         !!---------------------------------------------------------------------- 
    67          IMPLICIT NONE 
    6871         INTEGER :: istp ! time step index 
    6972         !! Loop over entire run 
    … …  
    9295         !! 
    9396         !!---------------------------------------------------------------------- 
    94          IMPLICIT NONE 
    9597         IF(lk_mpp) CALL mppstop  ! end mpp communications 
    9698      END SUBROUTINE ooo_stop 
Note: See TracChangeset for help on using the changeset viewer.