Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/phylmd/coare_cp_mod.F90

Timestamp:

Aug 2, 2024, 2:12:03 PM (3 months ago)

Author:

abarral

Message:

Add missing klon on strataer_emiss_mod.F90
Correct various missing explicit declarations
Replace tabs by spaces (tabs are not part of the fortran charset)
Continue cleaning modules
Removed unused arguments and variables

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/coare_cp_mod.F90 (modified) (1 diff)

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

@@ -188 +188 @@
 
   !***************  bulk loop ************
-  do i=1, nits
+  DO i=1, nits
 
      zet=von*grav*zu/t*(tsr*(1+0.61*Q)+.61*t*qsr)/(usr*usr)/(1+0.61*Q)