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

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

moved ooo_write.F90 to sao_write.F90 along with renaming its internal subroutines appropriately

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  
    15641564      !! ** Purpose : Write an obfbdata structure into a class 4 file. 
    15651565      !! 
    1566       !! ** Method  : 1. Allocate memory needed by ooo_write 
     1566      !! ** Method  : 1. Allocate memory needed by sao_write 
    15671567      !!              2. Map obfbdata into allocated memory 
    1568       !!              3. Pass mapped data to ooo_write 
     1568      !!              3. Pass mapped data to sao_write 
    15691569      !!              4. Deallocate memory 
    15701570      !!---------------------------------------------------------------------- 
    15711571      USE dom_oce, ONLY: narea 
    1572       USE ooo_write 
     1572      USE sao_write 
    15731573      USE sao_data 
    15741574      !! * Arguments 
     
    17331733 
    17341734         ! 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, & 
    17361736                         & kproc, kobs, kvars, kdeps, kfcst, & 
    17371737                         & clfilename) 
    17381738 
    17391739         ! Write standard variables 
    1740          CALL ooo_wri_default(clfilename, kobs, kvars, kfcst, kdeps, & 
     1740         CALL sao_wri_default(clfilename, kobs, kvars, kfcst, kdeps, & 
    17411741                            & ctype, cwmo, cunit, cvarname, & 
    17421742                            & plam, pphi, pdep, ptim, pob, plead, & 
     
    17471747              (TRIM(cdtmp) == "persistence") ) THEN 
    17481748            !! 4D variables 
    1749             CALL ooo_wri_extra(clfilename, TRIM(cdtmp), kdeps, kfcst, & 
     1749            CALL sao_wri_extra(clfilename, TRIM(cdtmp), kdeps, kfcst, & 
    17501750                            &  kvars, kobs, (/ 1,ij,1,1 /), (/ kdeps,1,kvars,kobs /), pmod) 
    17511751         ELSE 
    17521752            !! 3D variables 
    1753             CALL ooo_wri_extra(clfilename, TRIM(cdtmp), kdeps, & 
     1753            CALL sao_wri_extra(clfilename, TRIM(cdtmp), kdeps, & 
    17541754                            &  kvars, kobs, (/ 1,1,1 /), (/ kdeps,kvars,kobs /), pmod) 
    17551755         ENDIF 
Note: See TracChangeset for help on using the changeset viewer.