- Timestamp:
- 2014-11-12T15:18:31+01:00 (9 years ago)
- 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 66 66 ! Stand Alone Observation operator modules 67 67 USE ooo_data 68 USE ooo_read69 68 USE sao_intp 70 69 -
branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/SAO_SRC/sao_intp.F90
r4847 r4848 8 8 USE diaobs 9 9 !! Stand Alone Observation operator modules 10 USE ooo_read10 USE sao_read 11 11 USE ooo_data 12 12 … … 35 35 IF ( MOD(istp, nn_sao_freq) == nit000 ) THEN 36 36 !! Read next model counterpart 37 CALL ooo_rea_dri(jifile)37 CALL sao_rea_dri(jifile) 38 38 jifile = jifile + 1 39 39 ENDIF -
branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/SAO_SRC/sao_read.F90
r4847 r4848 1 1 2 MODULE ooo_read2 MODULE sao_read 3 3 !!================================================================== 4 !! *** MODULE ooo_read ***4 !! *** MODULE sao_read *** 5 5 !! Read routines : I/O for Stand Alone Observation operator 6 6 !!================================================================== … … 20 20 PRIVATE 21 21 22 PUBLIC ooo_rea_dri22 PUBLIC sao_rea_dri 23 23 24 24 CONTAINS 25 SUBROUTINE ooo_rea_dri(kfile)26 !!------------------------------------------------------------------------ 27 !! *** ooo_rea_dri ***25 SUBROUTINE sao_rea_dri(kfile) 26 !!------------------------------------------------------------------------ 27 !! *** sao_rea_dri *** 28 28 !! 29 29 !! Purpose : To choose appropriate read method … … 55 55 & (TRIM(cmatchname) == 'best_estimate').OR. & 56 56 & (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) 59 59 ELSE IF (TRIM(cmatchname) == 'climatology') THEN 60 60 WRITE(numout,*) 'Interpolating climatologies' 61 61 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) 64 64 END IF 65 65 66 END SUBROUTINE ooo_rea_dri67 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 *** 71 71 !! 72 72 !! Purpose : To read altimeter bias and set tn,sn to missing values … … 138 138 END IF 139 139 140 END SUBROUTINE ooo_read_altbias141 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 *** 145 145 !! 146 146 !! Purpose : To fill tn and sn with dailymean field from netcdf files … … 265 265 istat = nf90_close(ncid) 266 266 END IF 267 END SUBROUTINE ooo_read_file268 269 SUBROUTINE ooo_read_juld(filename, ifcst, julian)267 END SUBROUTINE sao_read_file 268 269 SUBROUTINE sao_read_juld(filename, ifcst, julian) 270 270 USE calendar 271 271 !!-------------------------------------------------------------------- 272 !! *** ooo_read_juld ***272 !! *** sao_read_juld *** 273 273 !! 274 274 !! Purpose : To read model julian day information from file … … 342 342 DEALLOCATE(r_sec) 343 343 344 END SUBROUTINE ooo_read_juld345 346 END MODULE ooo_read347 344 END SUBROUTINE sao_read_juld 345 346 END MODULE sao_read 347
Note: See TracChangeset
for help on using the changeset viewer.