Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/disvert_noterre.F

Timestamp:

Jul 23, 2024, 8:22:55 AM (4 months ago)

Author:

abarral

Message:

Handle DEBUG_IO in lmdz_cppkeys_wrapper.F90
Transform some files .F -> .[fF]90
[ne compile pas à cause de writefield_u non défini - en attente de réponse Laurent]

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d_common/disvert_noterre.F (modified) (1 diff)

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

@@ -181 +181 @@
          DO l = 1, llm
 
-         call sig_hybrid(sig(l),pa,preff,newsig)
+         CALL sig_hybrid(sig(l),pa,preff,newsig)
             bp(l) = EXP( 1. - 1./(newsig**2)  )
             ap(l) = pa * (newsig - bp(l) )