- Timestamp:
- 2014-11-12T15:32:01+01:00 (9 years ago)
- File:
-
- 1 edited
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
Note: See TracChangeset
for help on using the changeset viewer.