Changeset 4121


Ignore:
Timestamp:
2013-10-24T15:20:19+02:00 (7 years ago)
Author:
andrewryan
Message:

Replaced OOO_SRC/obs_fbm.F90 with symbolic link to OPA_SRC/OBS/obs_fbm.F90 and included link to dtadyn.F90

Location:
branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO
Files:
2 added
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO/OPA_SRC/OBS/obs_fbm.F90

    r4106 r4121  
    15641564      !! ** Purpose : Write an obfbdata structure into a class 4 file. 
    15651565      !! 
    1566       !! ** Method  : 1. Allocate memory needed by off_wri 
     1566      !! ** Method  : 1. Allocate memory needed by ooo_write 
    15671567      !!              2. Map obfbdata into allocated memory 
    1568       !!              3. Pass mapped data to off_wri 
     1568      !!              3. Pass mapped data to ooo_write 
    15691569      !!              4. Deallocate memory 
    15701570      !!---------------------------------------------------------------------- 
     
    15721572      USE ooo_write 
    15731573      USE ooo_data 
    1574       IMPLICIT NONE 
    15751574      !! * Arguments 
    15761575      CHARACTER(len=*) :: cdfilename ! Feedback filename 
     
    17721771      !! ** Method  : 1. Inspect cdfilename for observation kind. 
    17731772      !!---------------------------------------------------------------------- 
    1774       IMPLICIT NONE 
    17751773      CHARACTER(len=*) :: cdfilename ! Feedback filename 
    17761774      CHARACTER(len=8) :: ckind 
Note: See TracChangeset for help on using the changeset viewer.