Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmd/coef_diff_turb_mod.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/phylmd/coef_diff_turb_mod.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/coef_diff_turb_mod.F90

@@ -165 +165 @@
        ! Mais ca fait planter le replay.
        ! En attendant une réécriture, on a joute des if (Fredho)
-       if ( klon>1 .or. (klon==1 .and. knon==1) ) then
+       if ( klon>1 .or. (klon==1 .and. knon==1) ) THEN
           CALL ustarhb(knon,klev,knon,yu,yv,ycdragm, yustar)
        endif
@@ -175 +175 @@
 !   iflag_pbl peut etre utilise comme longuer de melange
        IF (iflag_pbl>=31) THEN
-          if ( klon>1 .or. (klon==1 .and. knon==1) ) then
+          if ( klon>1 .or. (klon==1 .and. knon==1) ) THEN
           CALL vdif_kcay(knon,klev,knon,dtime,RG,RD,ypaprs,yt, &
                yzlev,yzlay,yu,yv,yteta, &
@@ -403 +403 @@
 !           calculer la fraction nuageuse (processus humide):
 
-          if (zq /= 0.) then
+          if (zq /= 0.) THEN
              zfr = (zq+ratqs*zq-zqs) / (2.0*ratqs*zq)
           else