Changeset 5103 for LMDZ6/branches/Amaury_dev/libf/phylmd/convect3.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/phylmd/convect3.F90 (modified) (1 diff)

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

@@ -326 +326 @@
   IF (t(1)<250.0 .OR. rr(1)<=0.0) THEN
     iflag = 0
-    ! sb3d         print*,'je suis passe par 366'
+    ! sb3d         PRINT*,'je suis passe par 366'
     RETURN
   END IF
 
-  ! jyg1 Utilisation de la subroutine CLIFT
+  ! jyg1 Utilisation de la SUBROUTINE CLIFT
   ! C      RH=RR(1)/RS(1)
   ! C      CHI=T(1)/(1669.0-122.0*RH-T(1))