Changeset 5103 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/prather.F

Timestamp:

Jul 23, 2024, 3:29:36 PM (4 months 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/dyn3d_common/prather.F (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/prather.F

@@ -67 +67 @@
 
 
-      data first/.true./
+      data first/.TRUE./
       data qmin,qmax/-1.e33,1.e33/
 
@@ -81 +81 @@
  
       if(first) then
-         print*,'SCHEMA PRATHER'
-         first=.false.
+         PRINT*,'SCHEMA PRATHER'
+         first=.FALSE.
          do i=2,iip1
             coslon(i)=cos(rlonv(i))
@@ -251 +251 @@
          enddo
 c       enddo
-c         print*,'qpn',qpn,'qps',qps
-c          print*,'dqzpn',dqzpn,'dqzps',dqzps
+c         PRINT*,'qpn',qpn,'qps',qps
+c          PRINT*,'dqzpn',dqzpn,'dqzps',dqzps
 c       enddo
            dyn1=0.