Changeset 5103 for LMDZ6/branches/Amaury_dev/libf/phylmdiso/cv3_enthalpmix.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_enthalpmix.F90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmdiso/cv3_enthalpmix.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
@@ -184 +184 @@
     tmix(i) = akm(i)/b2(i)
     thmix(i) = tmix(i)*(p0/pnk(i))**rdcp(i)
-    ! print*,'thmix akm',akm(i),b2(i)
-    ! print*,'thmix t',tmix(i),p0
-    ! print*,'thmix p',pnk(i),rdcp(i)
-    ! print*,'thmix',thmix(i)
+    ! PRINT*,'thmix akm',akm(i),b2(i)
+    ! PRINT*,'thmix t',tmix(i),p0
+    ! PRINT*,'thmix p',pnk(i),rdcp(i)
+    ! PRINT*,'thmix',thmix(i)
     ! c         thmix(i) = akm(i)/a2(i)
     ! c         tmix(i)= thmix(i)*(pnk(i)*p0m1)**rdcp(i)
@@ -228 +228 @@
     END IF ! iflag=7
 
-    ! print*,'NIFLAG7  =',niflag7
+    ! PRINT*,'NIFLAG7  =',niflag7
 
   END DO