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

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

moved ooo_read.F90 to sao_read.F90 along with renaming its internal subroutines appropriately

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

Legend:

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

    r4847 r4848  
    6666   ! Stand Alone Observation operator modules 
    6767   USE ooo_data 
    68    USE ooo_read 
    6968   USE sao_intp 
    7069 
  • branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/SAO_SRC/sao_intp.F90

    r4847 r4848  
    88   USE diaobs 
    99   !! Stand Alone Observation operator modules 
    10    USE ooo_read 
     10   USE sao_read 
    1111   USE ooo_data 
    1212 
     
    3535               IF ( MOD(istp, nn_sao_freq) == nit000 ) THEN 
    3636                  !! Read next model counterpart 
    37                   CALL ooo_rea_dri(jifile) 
     37                  CALL sao_rea_dri(jifile) 
    3838                  jifile = jifile + 1 
    3939               ENDIF 
  • branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/SAO_SRC/sao_read.F90

    r4847 r4848  
    11 
    2 MODULE ooo_read 
     2MODULE sao_read 
    33   !!================================================================== 
    4    !!                    *** MODULE ooo_read *** 
     4   !!                    *** MODULE sao_read *** 
    55   !! Read routines : I/O for Stand Alone Observation operator 
    66   !!================================================================== 
     
    2020   PRIVATE 
    2121 
    22    PUBLIC ooo_rea_dri 
     22   PUBLIC sao_rea_dri 
    2323 
    2424CONTAINS 
    25    SUBROUTINE ooo_rea_dri(kfile) 
    26       !!------------------------------------------------------------------------ 
    27       !!             *** ooo_rea_dri *** 
     25   SUBROUTINE sao_rea_dri(kfile) 
     26      !!------------------------------------------------------------------------ 
     27      !!             *** sao_rea_dri *** 
    2828      !! 
    2929      !! Purpose : To choose appropriate read method 
     
    5555         & (TRIM(cmatchname) == 'best_estimate').OR. & 
    5656         & (TRIM(cmatchname) == '') ) THEN 
    57          CALL ooo_read_file(TRIM(cdfilename), kindex) 
    58          CALL ooo_read_juld(TRIM(cdfilename), kindex, cl4_modjuld) 
     57         CALL sao_read_file(TRIM(cdfilename), kindex) 
     58         CALL sao_read_juld(TRIM(cdfilename), kindex, cl4_modjuld) 
    5959      ELSE IF (TRIM(cmatchname) == 'climatology') THEN 
    6060         WRITE(numout,*) 'Interpolating climatologies' 
    6161      ELSE IF (TRIM(cmatchname) == 'altimeter') THEN 
    62          CALL ooo_read_altbias(TRIM(cdfilename)) 
    63          CALL ooo_read_juld(TRIM(cdfilename), kindex, cl4_modjuld) 
     62         CALL sao_read_altbias(TRIM(cdfilename)) 
     63         CALL sao_read_juld(TRIM(cdfilename), kindex, cl4_modjuld) 
    6464      END IF 
    6565 
    66    END SUBROUTINE ooo_rea_dri 
    67  
    68    SUBROUTINE ooo_read_altbias(filename) 
    69       !!------------------------------------------------------------------------ 
    70       !!                      *** ooo_read_altbias *** 
     66   END SUBROUTINE sao_rea_dri 
     67 
     68   SUBROUTINE sao_read_altbias(filename) 
     69      !!------------------------------------------------------------------------ 
     70      !!                      *** sao_read_altbias *** 
    7171      !! 
    7272      !! Purpose : To read altimeter bias and set tn,sn to missing values 
     
    138138      END IF 
    139139    
    140    END SUBROUTINE ooo_read_altbias 
    141  
    142    SUBROUTINE ooo_read_file(filename, ifcst) 
    143       !!------------------------------------------------------------------------ 
    144       !!             *** ooo_read_file *** 
     140   END SUBROUTINE sao_read_altbias 
     141 
     142   SUBROUTINE sao_read_file(filename, ifcst) 
     143      !!------------------------------------------------------------------------ 
     144      !!             *** sao_read_file *** 
    145145      !! 
    146146      !! Purpose : To fill tn and sn with dailymean field from netcdf files 
     
    265265         istat = nf90_close(ncid) 
    266266      END IF 
    267    END SUBROUTINE ooo_read_file 
    268  
    269    SUBROUTINE ooo_read_juld(filename, ifcst, julian) 
     267   END SUBROUTINE sao_read_file 
     268 
     269   SUBROUTINE sao_read_juld(filename, ifcst, julian) 
    270270      USE calendar 
    271271      !!-------------------------------------------------------------------- 
    272       !!                 *** ooo_read_juld *** 
     272      !!                 *** sao_read_juld *** 
    273273      !! 
    274274      !!   Purpose : To read model julian day information from file 
     
    342342      DEALLOCATE(r_sec) 
    343343       
    344    END SUBROUTINE ooo_read_juld 
    345  
    346 END MODULE ooo_read  
    347  
     344   END SUBROUTINE sao_read_juld 
     345 
     346END MODULE sao_read  
     347 
Note: See TracChangeset for help on using the changeset viewer.