Changeset 5103 for LMDZ6/branches/Amaury_dev/libf/phylmdiso/cv3_estatmix.F90

Timestamp:

Jul 23, 2024, 3:29:36 PM (8 weeks ago)

Author:

abarral

Message:

Handle CPP_INLANDSIS in lmdz_cppkeys_wrapper.F90
Remove obsolete key wrgrads_thermcell, _ADV_HALO, _ADV_HALLO, isminmax
Remove redundant uses of CPPKEY_INCA (thanks acozic)
Remove obsolete misc/write_field.F90
Remove unused ioipsl_* wrappers
Remove calls to WriteField_u with wrong signature
Convert .F -> .[fF]90
(lint) uppercase fortran operators
[note: 1d and iso still broken - working on it]

File:

• LMDZ6/branches/Amaury_dev/libf/phylmdiso/cv3_estatmix.F90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmdiso/cv3_estatmix.F90

@@ -130 +130 @@
         ! CRtest:couplage thermiques: deja normalise
         ! wi(i,j) = w(j)
-        ! print*,'wi',wi(i,j)
+        ! PRINT*,'wi',wi(i,j)
         wi(i, j) = w(j)*(p1(i,j)-p2(i,j))*coef(i)+eqwght(i)
         dpw(i) = dpw(i) + wi(i, j)
@@ -142 +142 @@
   ! CR:print
   ! do i=1,len
-  ! print*,'plim',plim1(i),plim2p(i)
+  ! PRINT*,'plim',plim1(i),plim2p(i)
   ! enddo
   DO j = 1, nd
@@ -172 +172 @@
     !      (Use of Cpv since we are dealing with dry static energy)
     thmix(i) = tmix(i)*(p0/pnk(i))**rdcp(i)
-    ! print*,'tmix thmix hmix ',tmix(i),thmix(i),hmix(i)
+    ! PRINT*,'tmix thmix hmix ',tmix(i),thmix(i),hmix(i)
     zdelta = max(0., sign(1.,rtt-tmix(i)))
     qsmix(i) = r2es*foeew(tmix(i), zdelta)/(pnk(i)*100.)
@@ -211 +211 @@
     END IF ! iflag=7
 
-    ! print*,'NIFLAG7  =',niflag7
+    ! PRINT*,'NIFLAG7  =',niflag7
 
   END DO