Changeset 5103 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/read_newemissions.F

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_newemissions.F (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/read_newemissions.F

@@ -1 +1 @@
 C Routine to read the emissions of the different species
 C
-      subroutine read_newemissions(julien, jH_emi ,edgar, flag_dms,
+      SUBROUTINE read_newemissions(julien, jH_emi ,edgar, flag_dms,
      I                             debutphy, 
      I                             pdtphys,lafinphy, nbjour, pctsrf,
@@ -157 +157 @@
         test_vent=0
         test_day=0
-        CALL read_vent(.true.,step_vent,nbjour,u10m_ec2,v10m_ec2)
+        CALL read_vent(.TRUE.,step_vent,nbjour,u10m_ec2,v10m_ec2)
         print *,'Read (debut) dust emissions: step_vent,julien,nbjour', 
      .                                   step_vent,julien,nbjour
-        CALL read_dust(.true.,step_vent,nbjour,dust_ec2)
+        CALL read_dust(.TRUE.,step_vent,nbjour,dust_ec2)
 C Threshold velocity map
 !$OMP MASTER
@@ -208 +208 @@
         step_vent=step_vent+1
         !PRINT *,'step_vent=', step_vent
-        CALL read_vent(.false.,step_vent,nbjour,u10m_ec2,v10m_ec2)
+        CALL read_vent(.FALSE.,step_vent,nbjour,u10m_ec2,v10m_ec2)
         print *,'Reading dust emissions: step_vent, julien, nbjour ', 
      .                                   step_vent, julien, nbjour
         !print *,'test_vent, julien = ',test_vent, julien
-        CALL read_dust(.false.,step_vent,nbjour,dust_ec2)
+        CALL read_dust(.FALSE.,step_vent,nbjour,dust_ec2)
       
       ENDIF !--test_vent
@@ -224 +224 @@
       tau_2=(jH_vent-jH_init)*24./(vent_resol)
       tau_1=1.-tau_2
-!      print*,'JEdec jHv,JHi,ventres',jH_vent,jH_init,vent_resol
-!      print*,'JEdec tau2,tau1',tau_2,tau_1
-!      print*,'JEdec step_vent',step_vent
+!      PRINT*,'JEdec jHv,JHi,ventres',jH_vent,jH_init,vent_resol
+!      PRINT*,'JEdec tau2,tau1',tau_2,tau_1
+!      PRINT*,'JEdec step_vent',step_vent
       DO i=1, klon
 !      PRINT*,'JE tau_2,tau_2j',tau_2,tau_2j