Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/dyn3d/friction.F90

Timestamp:

Jul 24, 2024, 2:54:37 PM (2 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d/friction.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d/friction.F90

@@ -47 +47 @@
     ! set friction type
     CALL getin("friction_type", friction_type)
-    if ((friction_type<0).or.(friction_type>1)) then
+    if ((friction_type<0).or.(friction_type>1)) THEN
       abort_message = "wrong friction type"
-      write(lunout, *)'Friction: wrong friction type', friction_type
+      WRITE(lunout, *)'Friction: wrong friction type', friction_type
       CALL abort_gcm(modname, abort_message, 42)
     endif
@@ -55 +55 @@
   ENDIF
 
-  if (friction_type==0) then
+  if (friction_type==0) THEN
     !   calcul des composantes au carre du vent naturel
     do j = 1, jjp1
@@ -118 +118 @@
   endif ! of if (friction_type.eq.0)
 
-  if (friction_type==1) then
+  if (friction_type==1) THEN
     do l = 1, llm
       ucov(:, :, l) = ucov(:, :, l) * (1. - pdt * kfrict(l))