Changeset 3780 for LMDZ6/trunk/libf/phylmd/calbeta.F90

Timestamp:

Oct 22, 2020, 2:50:18 PM (4 years ago)

Author:

evignon

Message:

Premiere comission Etienne: changements pour le 1D (forcage en Ts au dessus des continents) et inclusion drag arbres dans yamada4_num=6

File:

• LMDZ6/trunk/libf/phylmd/calbeta.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/calbeta.F90

@@ -7 +7 @@
   USE dimphy
   USE indice_sol_mod
+
   IMPLICIT none
+
+#include "flux_arp.h"
+
 !======================================================================
 ! Auteur(s): Z.X. Li (LMD/CNRS) (adaptation du GCM au LMD)
@@ -82 +86 @@
      ENDDO
   ENDIF
+
+  ! EV: when beta is prescribed for 1D cases:
+  IF (knon.EQ.1 .AND. ok_prescr_beta) THEN
+     DO i = 1, knon
+          vbeta(i)=betaevap
+      ENDDO
+  ENDIF
   
 END SUBROUTINE calbeta