Changeset 5103 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/read_vent.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/Dust/read_vent.f90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/read_vent.f90

@@ -106 +106 @@
 
 ! added by JE from the nh SPLA, dyn3d/read_reanalyse.F which is not available any more
-subroutine correctbid(iim, nl, x)
+SUBROUTINE correctbid(iim, nl, x)
   integer :: iim, nl
   real :: x(iim + 1, nl)
@@ -116 +116 @@
       if(abs(x(i, l))>1.e10) then
         zz = 0.5 * (x(i - 1, l) + x(i + 1, l))
-        ! print*,'correction ',i,l,x(i,l),zz
+        ! PRINT*,'correction ',i,l,x(i,l),zz
         x(i, l) = zz
       endif
@@ -123 +123 @@
 
   return
-end subroutine correctbid
+END SUBROUTINE  correctbid