Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/friction_loc.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/dyn3dmem/friction_loc.f90 (modified) (5 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/friction_loc.f90

@@ -45 +45 @@
   CHARACTER(len=80) :: abort_message
 !$OMP THREADPRIVATE(firstcall,friction_type)
-  integer :: jjb,jje
+  INTEGER :: jjb,jje
 
 !$OMP SINGLE
@@ -51 +51 @@
     ! 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
@@ -99 +99 @@
   !   les deux composantes du vent au pole sont obtenues comme
   !   premiers modes de fourier de v pres du pole
-  if (pole_nord) then
-
+  if (pole_nord) THEN
     upoln=0.
     vpoln=0.
@@ -119 +118 @@
   endif
 
-  if (pole_sud) then
-
+  if (pole_sud) THEN
     upols=0.
     vpols=0.
@@ -167 +165 @@
   endif ! of if (friction_type.eq.0)
 
-  if (friction_type==1) then
+  if (friction_type==1) THEN
    ! for ucov()
     jjb=jj_begin