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 8223 – NEMO

Changeset 8223


Ignore:
Timestamp:
2017-06-27T12:46:00+02:00 (7 years ago)
Author:
dford
Message:

Allow for different capitalisations of biogeochemical variable names.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_obs_oper_update/NEMOGCM/NEMO/OPA_SRC/OBS/obs_write.F90

    r8205 r8223  
    320320      TYPE(obfbdata) :: fbdata 
    321321      CHARACTER(LEN=40) :: clfname         ! netCDF filename 
    322       CHARACTER(LEN=6) :: clfiletype 
     322      CHARACTER(LEN=10) :: clfiletype 
    323323      CHARACTER(LEN=12), PARAMETER :: cpname = 'obs_wri_surf' 
    324324      INTEGER :: jo 
     
    441441         END DO 
    442442 
    443       CASE('LOGCHL') 
     443      CASE('LOGCHL','LogChl','logchl') 
    444444 
    445445         CALL alloc_obfbdata( fbdata, 1, surfdata%nsurf, 1, & 
     
    464464         END DO 
    465465 
    466       CASE('SPM') 
     466      CASE('SPM','Spm','spm') 
    467467 
    468468         CALL alloc_obfbdata( fbdata, 1, surfdata%nsurf, 1, & 
     
    487487         END DO 
    488488 
    489       CASE('FCO2') 
     489      CASE('FCO2','fCO2','fco2') 
    490490 
    491491         CALL alloc_obfbdata( fbdata, 1, surfdata%nsurf, 1, & 
     
    510510         END DO 
    511511 
    512       CASE('PCO2') 
     512      CASE('PCO2','pCO2','pco2') 
    513513 
    514514         CALL alloc_obfbdata( fbdata, 1, surfdata%nsurf, 1, & 
Note: See TracChangeset for help on using the changeset viewer.