Changeset 2983 for LMDZ5/trunk/libf/phylmd/dyn1d

Timestamp:

Aug 31, 2017, 2:08:16 PM (7 years ago)

Author:

fhourdin

Message:

Modification pour le cas ayotte au format standard.
+ correction pour le cas forcing_les (correspondant a forcing_type=0)
partage par ayotte et rce_oce_les.
Dans la nouvelle version, ce dernier correspond a forcing_type=-1
Attention aux problemes de retrocomptabilite.

File:

• LMDZ5/trunk/libf/phylmd/dyn1d/lmdz1d.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/dyn1d/lmdz1d.F90

@@ -359 +359 @@
 !             Radiation to be switched off
 !
-      if (forcing_type .eq.0) THEN
+      if (forcing_type <=0) THEN
        forcing_les = .true.
       elseif (forcing_type .eq.1) THEN
@@ -412 +412 @@
        heure_ini_cas=0.
        pdt_cas=1800.         ! forcing frequency
+      elseif (forcing_type .eq.106) THEN ! ayotte_24SC starts 6-11-1992 0h
+       forcing_case2 = .true.
+       year_ini_cas=1992
+       mth_ini_cas=11
+       day_deb=6
+       heure_ini_cas=10.
+       pdt_cas=86400.        ! forcing frequency
       elseif (forcing_type .eq.40) THEN
        forcing_GCSSold = .true.
@@ -1084 +1091 @@
        endif
 
-!CRio:Attention modif spécifique cas de Caroline
-      if (forcing_les) then
+!CRio:Attention modif sp??cifique cas de Caroline
+      if (forcing_type==-1) then
          fcoriolis=0.
 !Nudging