Changeset 3605 for LMDZ6/branches/Ocean_skin/libf/phylmd/yamada4.F90

Timestamp:

Nov 21, 2019, 4:43:45 PM (4 years ago)

Author:

lguez

Message:

Merge revisions 3427:3600 of trunk into branch Ocean_skin

Location:

LMDZ6/branches/Ocean_skin

Files:

• . (modified) (1 prop)
• libf/phylmd/yamada4.F90 (modified) (8 diffs)

LMDZ6/branches/Ocean_skin/libf/phylmd/yamada4.F90

@@ -152 +152 @@
   !$OMP THREADPRIVATE(firstcall)
 
+  CHARACTER (len = 20) :: modname = 'yamada4'
+  CHARACTER (len = 80) :: abort_message
+
 
 
@@ -199 +202 @@
     ENDIF
 
-    PRINT*,'YAMADA4 RIc, RIfc, Sm_min, Alpha_min',ric,rifc,seuilsm,seuilalpha
+    WRITE(lunout,*)'YAMADA4 RIc, RIfc, Sm_min, Alpha_min',ric,rifc,seuilsm,seuilalpha
     firstcall = .FALSE.
     CALL getin_p('lmixmin',lmixmin)
@@ -216 +219 @@
 
   IF (.NOT. (iflag_pbl>=6 .AND. iflag_pbl<=12)) THEN
-    STOP 'probleme de coherence dans appel a MY'
+    abort_message='probleme de coherence dans appel a MY'
+    CALL abort_physic(modname,abort_message,1)
   END IF
 
@@ -537 +541 @@
 
   ELSE
-    STOP 'Cas nom prevu dans yamada4'
+     abort_message='Cas nom prevu dans yamada4'
+     CALL abort_physic(modname,abort_message,1)
 
   END IF ! Fin du cas 8
@@ -590 +595 @@
 
   IF (prt_level>1) THEN
-    PRINT *, 'YAMADA4 0'
+    WRITE(lunout,*) 'YAMADA4 0'
   END IF 
 
@@ -660 +665 @@
 
   IF (prt_level>1) THEN
-    PRINT *, 'YAMADA4 1'
+    WRITE(lunout,*)'YAMADA4 1'
   END IF !(prt_level>1) THEN
 
@@ -734 +739 @@
   IMPLICIT NONE
  
-  include "dimensions.h"
-
 !    vdif_q2: subroutine qui calcule la diffusion de la TKE par la TKE
 !             avec un schema implicite en temps avec 
@@ -825 +828 @@
   IMPLICIT NONE
 
-  include "dimensions.h"
-!
 ! vdif_q2e: subroutine qui calcule la diffusion de TKE par la TKE
 !           avec un schema explicite en temps