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

Changeset 4118


Ignore:
Timestamp:
2013-10-23T22:54:07+02:00 (11 years ago)
Author:
andrewryan
Message:

refactored ooomod to reduce number of subroutines

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r4117 r4118  
    2020 
    2121   CONTAINS 
    22       SUBROUTINE ooo_init 
    23          !!---------------------------------------------------------------------- 
    24          !!                    ***  SUBROUTINE ooo_init *** 
    25          !! 
    26          !! ** Purpose : To initialise the model as if it were running online. 
    27          !! 
    28          !!---------------------------------------------------------------------- 
    29          !! Initialise NEMO 
    30          CALL nemo_init 
    31          !! Initialise Offline obs_oper data 
    32          CALL ooo_data_init( ln_cl4 ) 
    33       END SUBROUTINE ooo_init 
    3422 
    3523      SUBROUTINE offline_obs_oper 
    … …  
    4129         !! 
    4230         !!---------------------------------------------------------------------- 
    43          !! Initialise offline obs_oper 
    44          CALL ooo_init 
     31         !! Initialise NEMO 
     32         CALL nemo_init 
     33         !! Initialise Offline obs_oper data 
     34         CALL ooo_data_init( ln_cl4 ) 
    4535         !! Loop over various model counterparts 
    4636         DO jimatch = 1, cl4_match_len 
    … …  
    5343            !! Pipe to output files 
    5444            CALL dia_obs_wri 
    55             !! Reset the obs_oper 
     45            !! Reset the obs_oper between 
    5646            CALL dia_obs_dealloc 
    5747         END DO 
    5848         !! Safely stop MPI 
    59          CALL ooo_stop 
     49         IF(lk_mpp) CALL mppstop  ! end mpp communications 
    6050      END SUBROUTINE offline_obs_oper 
    6151 
    … …  
    8878      END SUBROUTINE ooo_interp 
    8979 
    90       SUBROUTINE ooo_stop 
    91          !!---------------------------------------------------------------------- 
    92          !!                    ***  SUBROUTINE ooo_stop *** 
    93          !! 
    94          !! ** Purpose : To finalise the model as if it were running online. 
    95          !! 
    96          !!---------------------------------------------------------------------- 
    97          IF(lk_mpp) CALL mppstop  ! end mpp communications 
    98       END SUBROUTINE ooo_stop 
    99  
    10080END MODULE ooomod 
Note: See TracChangeset for help on using the changeset viewer.