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

Timestamp:

Aug 2, 2024, 2:12:03 PM (7 weeks 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/initphysto.F90 (modified) (2 diffs)

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

@@ -73 +73 @@
        nhoriid, fileid)
 
-!$OMP MASTER    
+!$OMP MASTER
 !  Appel a histvert pour la grille verticale
 
@@ -201 +201 @@
   IF (ok_sync) CALL histsync
 !$OMP END MASTER
-        
+
 END SUBROUTINE initphysto