Changeset 7617 for branches/CNRS/dev_r6270_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsbc.F90

Timestamp:

2017-01-27T18:17:01+01:00 (7 years ago)

Author:

aumont

Message:

update diagnostics + changes in quota code

File:

• branches/CNRS/dev_r6270_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsbc.F90 (modified) (4 diffs)

branches/CNRS/dev_r6270_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsbc.F90

@@ -45 +45 @@
    REAL(wp), PUBLIC  :: fep_rats    !: Fep/Fer ratio from sed  sources
    REAL(wp), PUBLIC  :: fep_rath    !: Fep/Fer ratio from hydro sources
+   REAL(wp), PUBLIC  :: hydrolig    !: Lgw/Fer ratio from hydro sources
 #endif
 
@@ -231 +232 @@
         &                sedfeinput, dustsolub, icefeinput, wdust, mfrac, nitrfix, diazolight, concfediaz,   &
 #if defined key_ligand
-        &                fep_rats, fep_rath,                     &
+        &                fep_rats, fep_rath,   hydrolig,                  &
 #endif
         &                hratio
@@ -271 +272 @@
          WRITE(numout,*) '    Fep/Fer ratio from sed sources                       = ', fep_rats
          WRITE(numout,*) '    Fep/Fer ratio from sed hydro sources                 = ', fep_rath
+         WRITE(numout,*) '    Lgw/Fer ratio from sed sources                       = ', hydrolig
 #endif
       END IF
@@ -286 +288 @@
       IF( lk_offline ) THEN
         nk_rnf(:,:) = 1
-        h_rnf (:,:) = fsdept(:,:,1)
+        h_rnf (:,:) = fse3t(:,:,1)
       ENDIF