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 15497 for NEMO/branches/UKMO/NEMO_4.0.4_generic_obs/src/OCE/OBS/obs_group_def.F90 – NEMO

Ignore:
Timestamp:
2021-11-11T14:12:05+01:00 (3 years ago)
Author:
dford
Message:

Updates following review.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/UKMO/NEMO_4.0.4_generic_obs/src/OCE/OBS/obs_group_def.F90

    r15488 r15497  
    22   !!===================================================================== 
    33   !!                       ***  MODULE obs_group_def  *** 
    4    !! Observation diagnostics: Routines specific to model variables 
     4   !! Observation diagnostics: Routines specific to observation groups 
    55   !!===================================================================== 
    66   !! History : 4.0  !  2021-06  (D Ford)  Original code 
    77   !!---------------------------------------------------------------------- 
    8    !!   obs_group_alloc   : allocate observation group types 
    9    !!   obs_group_dealloc : deallocate observation group types 
    10    !!   obs_group_check   : check observation group options 
     8   !!   obs_group_alloc         : allocate observation group types 
     9   !!   obs_group_dealloc       : deallocate observation group types 
     10   !!   obs_group_read_namelist : read observation group namelists 
     11   !!   obs_group_check         : check observation group options 
    1112   !!---------------------------------------------------------------------- 
    1213 
    … …  
    1920   USE tradmp, ONLY : &   ! Damping to climatology 
    2021      & ln_tradmp 
     22   USE obs_grid, ONLY : & ! Use global distribution of observations 
     23      & ln_grid_global 
    2124 
    2225   IMPLICIT NONE 
    … …  
    2629 
    2730   PUBLIC & 
    28       & obs_group,         & 
    29       & obs_group_alloc,   & 
    30       & obs_group_dealloc, & 
    31       & obs_group_read,    & 
     31      & obs_group,               & 
     32      & obs_group_alloc,         & 
     33      & obs_group_dealloc,       & 
     34      & obs_group_read_namelist, & 
    3235      & obs_group_check 
    3336 
    … …  
    165168 
    166169 
    167    SUBROUTINE obs_group_read( sdobsgroup ) 
    168       !!---------------------------------------------------------------------- 
    169       !!                     ***  ROUTINE obs_group_read  *** 
     170   SUBROUTINE obs_group_read_namelist( sdobsgroup ) 
     171      !!---------------------------------------------------------------------- 
     172      !!                     ***  ROUTINE obs_group_read_namelist  *** 
    170173      !! 
    171174      !! ** Purpose : - Read namelist for observation group types 
    … …  
    388391      ENDIF 
    389392 
    390    END SUBROUTINE obs_group_read 
     393   END SUBROUTINE obs_group_read_namelist 
    391394 
    392395 
    … …  
    504507                  CALL ctl_stop( ' No altimeter bias file specified' ) 
    505508               ENDIF 
    506             ENDIF    
     509            ENDIF 
     510 
     511            IF( sdobsgroup%lvel .AND. (.NOT. ln_grid_global) ) THEN 
     512               CALL ctl_stop( ' Velocity data only works with ln_grid_global=.true.' ) 
     513            ENDIF 
    507514 
    508515         ENDIF 
Note: See TracChangeset for help on using the changeset viewer.