Changeset 12482 for NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/DIA/diamlr.F90

Timestamp:

2020-02-28T11:26:52+01:00 (4 years ago)

Author:

techene

Message:

new reference without ztilde, duplicated modules and routines to be modified from zstar MLF to zstar LF

File:

• NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/DIA/diamlr.F90 (modified) (6 diffs)

NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/DIA/diamlr.F90

@@ -33 +33 @@
    !!----------------------------------------------------------------------
 CONTAINS
-   
+
    SUBROUTINE dia_mlr_init
       !!----------------------------------------------------------------------
       !!                 ***  ROUTINE dia_mlr_init  ***
       !!
-      !! ** Purpose : initialisation of IOM context management for 
+      !! ** Purpose : initialisation of IOM context management for
       !!              multiple-linear-regression analysis
       !!
@@ -145 +145 @@
             ! Retrieve information (frequency, phase, nodal correction) about all
             ! available tidal constituents for placeholder substitution below
-            ctide_selected(1:34) = (/ 'Mf', 'Mm', 'Ssa', 'Mtm', 'Msf',    &
-               &                      'Msqm', 'Sa', 'K1', 'O1', 'P1',     &
-               &                      'Q1', 'J1', 'S1', 'M2', 'S2', 'N2', &
-               &                      'K2', 'nu2', 'mu2', '2N2', 'L2',    &
-               &                      'T2', 'eps2', 'lam2', 'R2', 'M3',   &
-               &                      'MKS2', 'MN4', 'MS4', 'M4', 'N4',   &
-               &                      'S4', 'M6', 'M8' /)
+            ctide_selected(1:34) = (/ 'Mf  ', 'Mm  ', 'Ssa ', 'Mtm ', 'Msf ',    &
+   &                      'Msqm', 'Sa  ', 'K1  ', 'O1  ', 'P1  ',     &
+   &                      'Q1  ', 'J1  ', 'S1  ', 'M2  ', 'S2  ', 'N2  ', &
+   &                      'K2  ', 'nu2 ', 'mu2 ', '2N2 ', 'L2  ',    &
+   &                      'T2  ', 'eps2', 'lam2', 'R2  ', 'M3  ',   &
+   &                      'MKS2', 'MN4 ', 'MS4 ', 'M4  ', 'N4  ',   &
+   &                      'S4  ', 'M6  ', 'M8  ' /)
             CALL tide_init_harmonics(ctide_selected, stideconst)
             itide = size(stideconst)
@@ -157 +157 @@
             itide = 0
          ENDIF
-         
+
          DO jm = 1, jpscanmax
             WRITE (cl3i, '(i3.3)') jm
@@ -236 +236 @@
                ! If enabled, keep handle in list of fields selected for analysis
                IF ( llxatt_enabled ) THEN
-                  
+
                   ! Set name attribute (and overwrite possible pre-configured name)
                   ! with field id to enable id string retrieval from stored handle
@@ -323 +323 @@
             CALL xios_set_attr  ( slxhdl_fld, standard_name=TRIM( clxatt_comment ), long_name=TRIM( clxatt_expr ),   &
                &                  operation="average" )
-               
+
             ! iii) set up the output of scalar products with itself and with
             !      other active regressors
@@ -416 +416 @@
       zadatrj2d(:,:) = adatrj*86400.0_wp
       IF ( iom_use('diamlr_time') ) CALL iom_put('diamlr_time', zadatrj2d)
-      
+
       IF( ln_timing )   CALL timing_stop('dia_mlr')