Changeset 9016 for branches/UKMO/dev_r5518_obs_oper_update_bgc3d/NEMOGCM/NEMO/OPA_SRC/OBS/obs_write.F90

Timestamp:

2017-12-13T15:30:00+01:00 (7 years ago)

Author:

dford

Message:

Change naming convention and fix a couple of bugs - code now compiles and runs.

File:

• branches/UKMO/dev_r5518_obs_oper_update_bgc3d/NEMOGCM/NEMO/OPA_SRC/OBS/obs_write.F90 (modified) (3 diffs)

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

@@ -83 +83 @@
       TYPE(obfbdata) :: fbdata
       CHARACTER(LEN=40) :: clfname
-      CHARACTER(LEN=27) :: clfiletype
+      CHARACTER(LEN=10) :: clfiletype
       INTEGER :: ilevel
       INTEGER :: jvar
@@ -320 +320 @@
       TYPE(obfbdata) :: fbdata
       CHARACTER(LEN=40) :: clfname         ! netCDF filename
-      CHARACTER(LEN=27) :: clfiletype
+      CHARACTER(LEN=10) :: clfiletype
       CHARACTER(LEN=12), PARAMETER :: cpname = 'obs_wri_surf'
       CHARACTER(LEN=ilenlong) :: cllongname  ! Long name of variable
@@ -399 +399 @@
          clgrid     = 'T'
 
-      CASE('SURF_LOGCHL_TOTAL','LOGCHL','LogChl','logchl')
-
-         clfiletype = 'surf_logchl_totalfb'
+      CASE('SLCHLTOT','LOGCHL','LogChl','logchl')
+
+         clfiletype = 'slchltotfb'
          cllongname = 'Surface total log10(chlorophyll)'
          clunits    = 'log10(mg/m3)'
          clgrid     = 'T'
 
-      CASE('SURF_LOGCHL_DIAT')
-
-         clfiletype = 'surf_logchl_diatfb'
+      CASE('SLCHLDIA')
+
+         clfiletype = 'slchldiafb'
          cllongname = 'Surface diatom log10(chlorophyll)'
          clunits    = 'log10(mg/m3)'
          clgrid     = 'T'
 
-      CASE('SURF_LOGCHL_NONDIAT')
-
-         clfiletype = 'surf_logchl_nondiatfb'
+      CASE('SLCHLNON')
+
+         clfiletype = 'slchlnonfb'
          cllongname = 'Surface non-diatom log10(chlorophyll)'
          clunits    = 'log10(mg/m3)'
          clgrid     = 'T'
 
-      CASE('SURF_LOGCHL_DINO')
-
-         clfiletype = 'surf_logchl_dinofb'
+      CASE('SLCHLDIN')
+
+         clfiletype = 'slchldinfb'
          cllongname = 'Surface dinoflagellate log10(chlorophyll)'
          clunits    = 'log10(mg/m3)'
          clgrid     = 'T'
 
-      CASE('SURF_LOGCHL_MICRO')
-
-         clfiletype = 'surf_logchl_microfb'
+      CASE('SLCHLMIC')
+
+         clfiletype = 'slchlmicfb'
          cllongname = 'Surface microphytoplankton log10(chlorophyll)'
          clunits    = 'log10(mg/m3)'
          clgrid     = 'T'
 
-      CASE('SURF_LOGCHL_NANO')
-
-         clfiletype = 'surf_logchl_nanofb'
+      CASE('SLCHLNAN')
+
+         clfiletype = 'slchlnanfb'
          cllongname = 'Surface nanophytoplankton log10(chlorophyll)'
          clunits    = 'log10(mg/m3)'
          clgrid     = 'T'
 
-      CASE('SURF_LOGCHL_PICO')
-
-         clfiletype = 'surf_logchl_picofb'
+      CASE('SLCHLPIC')
+
+         clfiletype = 'slchlpicfb'
          cllongname = 'Surface picophytoplankton log10(chlorophyll)'
          clunits    = 'log10(mg/m3)'
          clgrid     = 'T'
 
-      CASE('SURF_CHL_TOTAL')
-
-         clfiletype = 'surf_chl_totalfb'
+      CASE('SCHLTOT')
+
+         clfiletype = 'schltotfb'
          cllongname = 'Surface total chlorophyll'
          clunits    = 'mg/m3'
          clgrid     = 'T'
 
-      CASE('SURF_SPM')
-
-         clfiletype = 'surf_spmfb'
+      CASE('SSPM')
+
+         clfiletype = 'sspmfb'
          cllongname = 'Surface suspended particulate matter'
          clunits    = 'g/m3'
          clgrid     = 'T'
 
-      CASE('SURF_FCO2','FCO2','fCO2','fco2')
-
-         clfiletype = 'surf_fco2fb'
+      CASE('SFCO2','FCO2','fCO2','fco2')
+
+         clfiletype = 'sfco2fb'
          cllongname = 'Surface fugacity of carbon dioxide'
          clunits    = 'uatm'
          clgrid     = 'T'
 
-      CASE('SURF_PCO2')
-
-         clfiletype = 'surf_pco2fb'
+      CASE('SPCO2')
+
+         clfiletype = 'spco2fb'
          cllongname = 'Surface partial pressure of carbon dioxide'
          clunits    = 'uatm'