Changeset 8223

Timestamp:

2017-06-27T12:46:00+02:00 (7 years ago)

Author:

dford

Message:

Allow for different capitalisations of biogeochemical variable names.

File:

• branches/UKMO/dev_r5518_obs_oper_update/NEMOGCM/NEMO/OPA_SRC/OBS/obs_write.F90 (modified) (5 diffs)

branches/UKMO/dev_r5518_obs_oper_update/NEMOGCM/NEMO/OPA_SRC/OBS/obs_write.F90

@@ -320 +320 @@
       TYPE(obfbdata) :: fbdata
       CHARACTER(LEN=40) :: clfname         ! netCDF filename
-      CHARACTER(LEN=6)  :: clfiletype
+      CHARACTER(LEN=10) :: clfiletype
       CHARACTER(LEN=12), PARAMETER :: cpname = 'obs_wri_surf'
       INTEGER :: jo
@@ -441 +441 @@
          END DO
 
-      CASE('LOGCHL')
+      CASE('LOGCHL','LogChl','logchl')
 
          CALL alloc_obfbdata( fbdata, 1, surfdata%nsurf, 1, &
@@ -464 +464 @@
          END DO
 
-      CASE('SPM')
+      CASE('SPM','Spm','spm')
 
          CALL alloc_obfbdata( fbdata, 1, surfdata%nsurf, 1, &
@@ -487 +487 @@
          END DO
 
-      CASE('FCO2')
+      CASE('FCO2','fCO2','fco2')
 
          CALL alloc_obfbdata( fbdata, 1, surfdata%nsurf, 1, &
@@ -510 +510 @@
          END DO
 
-      CASE('PCO2')
+      CASE('PCO2','pCO2','pco2')
 
          CALL alloc_obfbdata( fbdata, 1, surfdata%nsurf, 1, &