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

Changeset 15497


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

Updates following review.

Location:
NEMO/branches/UKMO/NEMO_4.0.4_generic_obs/src/OCE/OBS
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0.4_generic_obs/src/OCE/OBS/diaobs.F90

    r15395 r15497  
    170170      jenabled = 0 
    171171      DO jgroup = 1, nn_obsgroups 
    172          CALL obs_group_read ( sobsgroups(jgroup) ) 
     172         CALL obs_group_read_namelist( sobsgroups(jgroup) ) 
    173173         CALL obs_group_check( sobsgroups(jgroup), jgroup ) 
    174174         IF (sobsgroups(jgroup)%lenabled) THEN 
    175175            jenabled = jenabled + 1 
    176             IF( sobsgroups(jgroup)%lvel  .AND.  .NOT.ln_grid_global ) THEN 
    177                CALL ctl_stop( 'Velocity data only works with ln_grid_global=.true.' ) 
    178             ENDIF 
    179176         ENDIF 
    180177      END DO 
     
    187184      ENDIF 
    188185 
    189  
    190186      !----------------------------------------------------------------------- 
    191187      ! Obs operator parameter checking and initialisations 
     
    202198      ! 
    203199      DO jgroup = 1, nn_obsgroups 
    204          IF (sobsgroups(jgroup)%lenabled) THEN 
    205             IF (sobsgroups(jgroup)%lprof) THEN 
     200         IF ( sobsgroups(jgroup)%lenabled ) THEN 
     201            IF ( sobsgroups(jgroup)%lprof ) THEN 
    206202               ! 
    207203               ! Read in profile or profile obs types 
     
    328324                     &              sobsgroups(jgroup)%rmdtcutoff ) 
    329325                  IF( sobsgroups(jgroup)%laltbias ) THEN 
    330                      !CALL obs_rea_altbias( sobsgroups(jgroup)%ssurfdataqc, & 
    331                      !   &                  sobsgroups(jgroup)%n2dint,      & 
    332                      !   &                  sobsgroups(jgroup)%caltbiasfile ) 
    333326                     CALL obs_app_bias( sobsgroups(jgroup)%ssurfdataqc,   & 
    334327                        &               sobsgroups(jgroup)%next_mdt,      &  
     
    439432 
    440433      DO jgroup = 1, nn_obsgroups 
    441          IF (sobsgroups(jgroup)%lenabled) THEN 
    442  
    443             IF (sobsgroups(jgroup)%lprof) THEN 
     434         IF ( sobsgroups(jgroup)%lenabled ) THEN 
     435 
     436            IF ( sobsgroups(jgroup)%lprof ) THEN 
    444437 
    445438               zprofclim(:,:,:) = fbrmdi 
  • 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.