Changeset 3798 for LMDZ6/branches/Ocean_skin/libf/phylmd/calbeta.F90

Timestamp:

Jan 11, 2021, 11:24:08 PM (4 years ago)

Author:

lguez

Message:

Sync latest trunk changes to Ocean_skin

Location:

LMDZ6/branches/Ocean_skin

Files:

• . (modified) (1 prop)
• libf/phylmd/calbeta.F90 (modified) (2 diffs)

LMDZ6/branches/Ocean_skin/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