- Timestamp:
- 2014-11-12T15:32:01+01:00 (9 years ago)
- Location:
- branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO
- Files:
-
- 1 edited
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/OPA_SRC/OBS/obs_fbm.F90
r4849 r4850 1564 1564 !! ** Purpose : Write an obfbdata structure into a class 4 file. 1565 1565 !! 1566 !! ** Method : 1. Allocate memory needed by ooo_write1566 !! ** Method : 1. Allocate memory needed by sao_write 1567 1567 !! 2. Map obfbdata into allocated memory 1568 !! 3. Pass mapped data to ooo_write1568 !! 3. Pass mapped data to sao_write 1569 1569 !! 4. Deallocate memory 1570 1570 !!---------------------------------------------------------------------- 1571 1571 USE dom_oce, ONLY: narea 1572 USE ooo_write1572 USE sao_write 1573 1573 USE sao_data 1574 1574 !! * Arguments … … 1733 1733 1734 1734 ! Initialise class 4 file 1735 CALL ooo_wri_init(cconf, csys, ckind, cversion, ccont, cinst, cdate, &1735 CALL sao_wri_init(cconf, csys, ckind, cversion, ccont, cinst, cdate, & 1736 1736 & kproc, kobs, kvars, kdeps, kfcst, & 1737 1737 & clfilename) 1738 1738 1739 1739 ! Write standard variables 1740 CALL ooo_wri_default(clfilename, kobs, kvars, kfcst, kdeps, &1740 CALL sao_wri_default(clfilename, kobs, kvars, kfcst, kdeps, & 1741 1741 & ctype, cwmo, cunit, cvarname, & 1742 1742 & plam, pphi, pdep, ptim, pob, plead, & … … 1747 1747 (TRIM(cdtmp) == "persistence") ) THEN 1748 1748 !! 4D variables 1749 CALL ooo_wri_extra(clfilename, TRIM(cdtmp), kdeps, kfcst, &1749 CALL sao_wri_extra(clfilename, TRIM(cdtmp), kdeps, kfcst, & 1750 1750 & kvars, kobs, (/ 1,ij,1,1 /), (/ kdeps,1,kvars,kobs /), pmod) 1751 1751 ELSE 1752 1752 !! 3D variables 1753 CALL ooo_wri_extra(clfilename, TRIM(cdtmp), kdeps, &1753 CALL sao_wri_extra(clfilename, TRIM(cdtmp), kdeps, & 1754 1754 & kvars, kobs, (/ 1,1,1 /), (/ kdeps,kvars,kobs /), pmod) 1755 1755 ENDIF -
branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/SAO_SRC/sao_write.F90
r4849 r4850 1 MODULE ooo_write1 MODULE sao_write 2 2 !!====================================================================== 3 !! *** MODULE ooo_write ***3 !! *** MODULE sao_write *** 4 4 !!====================================================================== 5 5 … … 13 13 PRIVATE 14 14 15 PUBLIC ooo_wri_init16 PUBLIC ooo_wri_default17 PUBLIC ooo_wri_extra15 PUBLIC sao_wri_init 16 PUBLIC sao_wri_default 17 PUBLIC sao_wri_extra 18 18 19 19 ! Type kinds for class 4 data. … … 25 25 REAL(clsp), PARAMETER :: clrmdi = 99999 !: Reals 26 26 27 INTERFACE ooo_wri_extra28 MODULE PROCEDURE ooo_wri_extra_3d_index, ooo_wri_extra_4d, ooo_wri_extra_4d_index27 INTERFACE sao_wri_extra 28 MODULE PROCEDURE sao_wri_extra_3d_index, sao_wri_extra_4d, sao_wri_extra_4d_index 29 29 END INTERFACE 30 30 31 31 CONTAINS 32 32 33 SUBROUTINE ooo_wri_extra_3d_index(cdfilename, cdvarname, ndeps, nvars, &33 SUBROUTINE sao_wri_extra_3d_index(cdfilename, cdvarname, ndeps, nvars, & 34 34 & nobs, kstart, kcount, pdata) 35 35 !!---------------------------------------------------------------------- 36 !! *** ROUTINE ooo_wri_extra_3d ***36 !! *** ROUTINE sao_wri_extra_3d *** 37 37 !! 38 38 !! ** Purpose : Write 3d variables to class 4 file. … … 55 55 & dimid, & !: 56 56 & varid !: 57 CHARACTER(len=16), PARAMETER :: cpname = ' ooo_wri_extra_3d'57 CHARACTER(len=16), PARAMETER :: cpname = 'sao_wri_extra_3d' 58 58 ! Open netcdf file 59 59 CALL chkerr(nf90_open(trim(cdfilename), nf90_write, ncid), cpname, __LINE__ ) … … 63 63 ! Close netcdf file 64 64 CALL chkerr(nf90_close(ncid), cpname, __LINE__ ) 65 END SUBROUTINE ooo_wri_extra_3d_index66 67 SUBROUTINE ooo_wri_extra_4d_index(cdfilename, cdvarname, ndeps, nfcst, &65 END SUBROUTINE sao_wri_extra_3d_index 66 67 SUBROUTINE sao_wri_extra_4d_index(cdfilename, cdvarname, ndeps, nfcst, & 68 68 & nvars, nobs, kstart, kcount, pdata) 69 69 !!---------------------------------------------------------------------- 70 !! *** ROUTINE ooo_wri_extra_4d ***70 !! *** ROUTINE sao_wri_extra_4d *** 71 71 !! 72 72 !! ** Purpose : Write 4d variables to class 4 file. … … 90 90 & dimid, & !: 91 91 & varid !: 92 CHARACTER(len=22), PARAMETER :: cpname = ' ooo_wri_extra_4d_index'92 CHARACTER(len=22), PARAMETER :: cpname = 'sao_wri_extra_4d_index' 93 93 ! Open netcdf file 94 94 CALL chkerr(nf90_open(trim(cdfilename), nf90_write, ncid), cpname, __LINE__ ) … … 98 98 ! Close netcdf file 99 99 CALL chkerr(nf90_close(ncid), cpname, __LINE__ ) 100 END SUBROUTINE ooo_wri_extra_4d_index101 102 SUBROUTINE ooo_wri_extra_4d(cdfilename, cdvarname, ndeps, nfcst, &100 END SUBROUTINE sao_wri_extra_4d_index 101 102 SUBROUTINE sao_wri_extra_4d(cdfilename, cdvarname, ndeps, nfcst, & 103 103 & nvars, nobs, pdata) 104 104 !!---------------------------------------------------------------------- 105 !! *** ROUTINE ooo_wri_extra_4d ***105 !! *** ROUTINE sao_wri_extra_4d *** 106 106 !! 107 107 !! ** Purpose : Write 4d variables to class 4 file. … … 122 122 & dimid, & !: 123 123 & varid !: 124 CHARACTER(len=16), PARAMETER :: cpname = ' ooo_wri_extra_4d'124 CHARACTER(len=16), PARAMETER :: cpname = 'sao_wri_extra_4d' 125 125 ! Open netcdf file 126 126 CALL chkerr(nf90_open(trim(cdfilename), nf90_write, ncid), cpname, __LINE__ ) … … 130 130 ! Close netcdf file 131 131 CALL chkerr(nf90_close(ncid), cpname, __LINE__ ) 132 END SUBROUTINE ooo_wri_extra_4d133 134 SUBROUTINE ooo_wri_default(cdfilename, nobs, nvars, nfcst, ndeps, &132 END SUBROUTINE sao_wri_extra_4d 133 134 SUBROUTINE sao_wri_default(cdfilename, nobs, nvars, nfcst, ndeps, & 135 135 & cdtyp, cdwmo, cunit, cvnam, & 136 136 & plam, pphi, pdep, ptim, pob, plead, & 137 137 & kqc, pmjuld) 138 138 !!---------------------------------------------------------------------- 139 !! *** ROUTINE ooo_wri_default ***139 !! *** ROUTINE sao_wri_default *** 140 140 !! 141 141 !! ** Purpose : Write standard variables to class 4 file. … … 192 192 & dimid, & !: 193 193 & varid !: 194 CHARACTER(len=15), PARAMETER :: cpname = ' ooo_wri_default'194 CHARACTER(len=15), PARAMETER :: cpname = 'sao_wri_default' 195 195 ! Open netcdf file 196 196 CALL chkerr(nf90_open(trim(cdfilename), nf90_write, ncid), cpname, __LINE__ ) … … 242 242 ! Close netcdf file 243 243 CALL chkerr(nf90_close(ncid), cpname, __LINE__ ) 244 END SUBROUTINE ooo_wri_default245 246 SUBROUTINE ooo_wri_init(cconf, csys, ckind, cversion, ccont, &244 END SUBROUTINE sao_wri_default 245 246 SUBROUTINE sao_wri_init(cconf, csys, ckind, cversion, ccont, & 247 247 & cinst, cdate, nproc, nobs, nvars, & 248 248 & ndeps, nfcst, cdfilename) 249 249 !!---------------------------------------------------------------------- 250 !! *** ROUTINE ooo_wri_init ***250 !! *** ROUTINE sao_wri_init *** 251 251 !! 252 252 !! ** Purpose : Initialise a class 4 file. … … 302 302 INTEGER, DIMENSION(4) :: & 303 303 & dim4a !: 4 dimensional settings 304 CHARACTER(len=12), PARAMETER :: cpname = ' ooo_wri_init'304 CHARACTER(len=12), PARAMETER :: cpname = 'sao_wri_init' 305 305 ! Global att variables 306 306 CHARACTER(len=40) :: date_str … … 586 586 CALL chkerr(nf90_close(ncid), cpname, __LINE__ ) 587 587 END IF 588 END SUBROUTINE ooo_wri_init589 590 591 END MODULE ooo_write588 END SUBROUTINE sao_wri_init 589 590 591 END MODULE sao_write
Note: See TracChangeset
for help on using the changeset viewer.