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 4846 for branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/SAO_SRC – NEMO

Ignore:
Timestamp:
2014-11-12T15:02:36+01:00 (9 years ago)
Author:
andrewryan
Message:

renamed namooo to namsao and propagated naming changes to all associated ooo variables

Location:
branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/SAO_SRC
Files:
4 edited
1 moved

Legend:

Unmodified
Added
Removed
  • branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/SAO_SRC/nemogcm.F90

    r4843 r4846  
    6464   USE lbcnfd, ONLY: isendto, nsndto ! Setup of north fold exchanges  
    6565 
    66    ! Offline obs_oper modules 
     66   ! Stand Alone Observation operator modules 
    6767   USE ooo_data 
    6868   USE ooo_read 
     
    102102         !! Initialise NEMO 
    103103         CALL nemo_init 
    104          !! Initialise Offline obs_oper data 
     104         !! Initialise Stand Alone Observation operator data 
    105105         CALL ooo_data_init( ln_cl4 ) 
    106106         !! Loop over various model counterparts 
  • branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/SAO_SRC/ooo_data.F90

    r4844 r4846  
    3030      & cl4_leadtime(MaxNumFiles)      !: Lead time data 
    3131 
    32    !! Offline obs_oper settings 
     32   !! Stand Alone Observation operator settings 
    3333   CHARACTER(len=lc) :: & 
    34       & ooo_files(MaxNumFiles)         !: model files 
     34      & sao_files(MaxNumFiles)         !: model files 
    3535   INTEGER            :: & 
    3636      & jifile, &                      !: current file list index 
    3737      & n_files, &                     !: number of files 
    3838      & jimatch, &                     !: current match 
    39       & nn_ooo_idx(MaxNumFiles), &     !: time_counter indices 
    40       & nn_ooo_freq                    !: read frequency in time steps 
     39      & nn_sao_idx(MaxNumFiles), &     !: time_counter indices 
     40      & nn_sao_freq                    !: read frequency in time steps 
    4141   CHARACTER(len=128) :: & 
    4242      & alt_file                       !: altimeter file 
     
    5757 
    5858      ! Standard offline obs_oper information 
    59       NAMELIST/namooo/ooo_files, nn_ooo_idx, nn_ooo_freq 
     59      NAMELIST/namsao/sao_files, nn_sao_idx, nn_sao_freq 
    6060 
    6161      ! Class 4 file specifiers 
     
    6868      jifile = 1                    !: input file iteration variable  
    6969      n_files = 0                   !: number of files to cycle through 
    70       ooo_files(:) = ''             !: list of files to read in 
    71       nn_ooo_idx(:) = 0             !: list of indices inside each file 
    72       nn_ooo_freq = -1              !: input frequency in time steps 
     70      sao_files(:) = ''             !: list of files to read in 
     71      nn_sao_idx(:) = 0             !: list of indices inside each file 
     72      nn_sao_freq = -1              !: input frequency in time steps 
    7373 
    7474      ! Class 4 initialisation 
     
    8888      ! Standard offline obs_oper settings 
    8989      REWIND( numnam_ref )              ! Namelist namctl in reference namelist : Control prints & Benchmark 
    90       READ  ( numnam_ref, namooo, IOSTAT = ios, ERR = 901 ) 
    91 901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namooo in reference namelist', .TRUE. ) 
     90      READ  ( numnam_ref, namsao, IOSTAT = ios, ERR = 901 ) 
     91901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsao in reference namelist', .TRUE. ) 
    9292 
    9393      REWIND( numnam_cfg )              ! Namelist namctl in confguration namelist : Control prints & Benchmark 
    94       READ  ( numnam_cfg, namooo, IOSTAT = ios, ERR = 902 ) 
    95 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namooo in configuration namelist', .TRUE. ) 
     94      READ  ( numnam_cfg, namsao, IOSTAT = ios, ERR = 902 ) 
     95902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsao in configuration namelist', .TRUE. ) 
    9696 
    9797      ! Read class 4 output settings 
     
    108108      ! count input files 
    109109      lmask(:) = .FALSE. 
    110       WHERE (ooo_files(:) /= '') lmask(:) = .TRUE. 
     110      WHERE (sao_files(:) /= '') lmask(:) = .TRUE. 
    111111      n_files = COUNT(lmask) 
    112112 
    113113      !! Initialise sub obs window frequency 
    114       IF (nn_ooo_freq == -1) THEN 
     114      IF (nn_sao_freq == -1) THEN 
    115115         !! Run length 
    116          nn_ooo_freq = nitend - nit000 + 1 
     116         nn_sao_freq = nitend - nit000 + 1 
    117117      ENDIF 
    118118 
     
    122122         WRITE(numout,*) 'offline obs_oper : Initialization' 
    123123         WRITE(numout,*) '~~~~~~~~~~~~~~~~~' 
    124          WRITE(numout,*) '   Namelist namooo : set offline obs_oper parameters'  
     124         WRITE(numout,*) '   Namelist namsao : set stand alone obs_oper parameters'  
    125125         DO jf = 1, n_files 
    126126            WRITE(numout,'(1X,2A)') '   Input forecast file name          forecastfile = ', & 
    127                TRIM(ooo_files(jf)) 
     127               TRIM(sao_files(jf)) 
    128128            WRITE(numout,*) '   Input forecast file index        forecastindex = ', & 
    129                nn_ooo_idx(jf) 
     129               nn_sao_idx(jf) 
    130130            WRITE(numout,*) '   Output forecast leadtime index   leadtimeindex = ', & 
    131131               cl4_fcst_idx(jf) 
  • branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/SAO_SRC/ooo_intp.F90

    r4120 r4846  
    77   USE in_out_manager 
    88   USE diaobs 
    9    !! Offline obs_oper modules 
     9   !! Stand Alone Observation operator modules 
    1010   USE ooo_read 
    1111   USE ooo_data 
     
    3333         DO WHILE ( istp <= nitend .AND. nstop == 0 ) 
    3434            IF (jifile <= n_files + 1) THEN 
    35                IF ( MOD(istp, nn_ooo_freq) == nit000 ) THEN 
     35               IF ( MOD(istp, nn_sao_freq) == nit000 ) THEN 
    3636                  !! Read next model counterpart 
    3737                  CALL ooo_rea_dri(jifile) 
  • branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/SAO_SRC/ooo_read.F90

    r4117 r4846  
    33   !!================================================================== 
    44   !!                    *** MODULE ooo_read *** 
    5    !! Read routines : I/O for offline obs_oper 
     5   !! Read routines : I/O for Stand Alone Observation operator 
    66   !!================================================================== 
    77 
     
    4242  
    4343      !! Filename, index and match-up kind 
    44       cdfilename = TRIM(ooo_files(kfile)) 
     44      cdfilename = TRIM(sao_files(kfile)) 
    4545      cmatchname = TRIM(cl4_vars(kfile)) 
    46       kindex = nn_ooo_idx(kfile) 
     46      kindex = nn_sao_idx(kfile) 
    4747 
    4848      !! Update model fields 
  • branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/SAO_SRC/sao.nml

    r4845 r4846  
    11 
    22!---------------------------------------------------------------------- 
    3 !       namooo Offline obs_oper namelist 
     3!       namsao Stand Alone Observation operator namelist 
    44!---------------------------------------------------------------------- 
    5 !   ooo_files     specifies the files containing the model counterpart 
    6 !   nn_ooo_idx    specifies the index within the model file 
    7 !   nn_ooo_freq   specifies the number of timesteps between file reads 
    8 &namooo 
    9    ooo_files = 'fcst.0.nc' 
    10    nn_ooo_idx = 1 
     5!   sao_files     specifies the files containing the model counterpart 
     6!   nn_sao_idx    specifies the index within the model file 
     7!   nn_sao_freq   specifies the number of timesteps between file reads 
     8&namsao 
     9   sao_files = 'fcst.0.nc' 
     10   nn_sao_idx = 1 
    1111/ 
    1212!---------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.