Changeset 15637 for NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/SBC

Timestamp:

2022-01-12T17:50:19+01:00 (2 years ago)

Author:

hadjt

Message:

DIA/diaharm.F90
DIA/diaharm_fast.F90
DIU/diurnal_bulk.F90
DOM/dommsk.F90
SBC/sbcflx.F90
SBC/tideini.F90

Initialise namelist string arrays so output.namelist.dyn does not contain nul values

output namelist in src/OCE/DIU/diurnal_bulk.F90

Location:

NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/SBC

Files:

• sbcflx.F90 (modified) (1 diff)
• tideini.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/SBC/sbcflx.F90

@@ -106 +106 @@
       &                    sn_press, ln_shelf_flx
       ! JT
-
+      !JT remove nul from output.namelist.dyn
+      sn_utau%lname = ''
+      sn_vtau%lname = ''
+      sn_qtot%lname = ''
+      sn_qsr%lname = ''
+      sn_emp%lname = ''
+      sn_press%lname = ''
+      !JT remove nul from output.namelist.dyn
       !!---------------------------------------------------------------------
       !

NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/SBC/tideini.F90

@@ -59 +59 @@
                   &     ln_tide_ramp, rn_scal_load, rdttideramp, dn_love_number, clname
       !!----------------------------------------------------------------------
+
+
+      
+      DO jk = 1, jpmax_harmo
+          clname(jk) = ''
+      END DO
       !
       ! Read Namelist nam_tide