Changeset 1613 for LMDZ5/trunk/libf/phylmd/physiq.F

Timestamp:

Feb 1, 2012, 2:55:16 PM (13 years ago)

Author:

lguez

Message:

Some input arguments of aaam_bud are defined only if ok_orodr.

File:

• LMDZ5/trunk/libf/phylmd/physiq.F (modified) (5 diffs)

LMDZ5/trunk/libf/phylmd/physiq.F

@@ -2637 +2637 @@
 c  ==============
 
-! Dans le cas où on active les thermiques, on fait partir l'ajustement
+! Dans le cas o\`u on active les thermiques, on fait partir l'ajustement
 ! a partir du sommet des thermiques.
 ! Dans le cas contraire, on demarre au niveau 1.
@@ -2824 +2824 @@
 ! FH 22/09/2009
 ! La ligne ci-dessous faisait osciller le modele et donnait une solution
-! assymptotique bidon et dépendant fortement du pas de temps.
+! asymptotique bidon et d\'ependant fortement du pas de temps.
 !        ratqs(:,:)=sqrt(ratqs(:,:)**2+ratqss(:,:)**2)
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -3579 +3579 @@
 
        IF (ok_hines) then
-
          CALL hines_gwd(klon,klev,dtime,paprs,pplay,
      i                  rlat,t_seri,u_seri,v_seri,
@@ -3587 +3586 @@
 c  ajout des tendances
         CALL add_phys_tend(d_u_hin,d_v_hin,d_t_hin,dq0,dql0,'hin')
-
       ENDIF
-c
-
-c
-cIM cf. FLott BEG
+
 C STRESS NECESSAIRES: TOUTE LA PHYSIQUE
 
@@ -3617 +3612 @@
 cIM calcul composantes axiales du moment angulaire et couple des montagnes
 c
-      IF (is_sequential) THEN
+      IF (is_sequential .and. ok_orodr) THEN
       
         CALL aaam_bud (27,klon,klev,jD_cur-jD_ref,jH_cur,