Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/dyn3d/caladvtrac.F90

Timestamp:

Jul 24, 2024, 4:23:34 PM (2 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d/caladvtrac.F90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d/caladvtrac.F90

@@ -50 +50 @@
   !
   ! Earth-specific stuff for the first 2 tracers (water)
-  if (planet_type=="earth") THEN
+  IF (planet_type=="earth") THEN
     ! initialisation
     ! CRisi: il faut gérer tous les traceurs si on veut pouvoir faire des
@@ -60 +60 @@
     !c        CALL minmaxq(q(1,1,1),1.e33,-1.e33,'Eau vapeur (a) ')
     !c        CALL minmaxq(q(1,1,2),1.e33,-1.e33,'Eau liquide(a) ')
-  endif ! of if (planet_type.eq."earth")
+  ENDIF ! of if (planet_type.EQ."earth")
   !   advection
 
@@ -70 +70 @@
 
   IF(iapptrac==iapp_tracvl) THEN
-    if (planet_type=="earth") THEN
+    IF (planet_type=="earth") THEN
       ! Earth-specific treatment for the first 2 tracers (water)
       !
@@ -105 +105 @@
       ENDDO
       !
-    endif ! of if (planet_type.eq."earth")
+    endif ! of if (planet_type.EQ."earth")
   ELSE
-    if (planet_type=="earth") THEN
+    IF (planet_type=="earth") THEN
       ! Earth-specific treatment for the first 2 tracers (water)
       dq(:, :, 1:nqtot) = 0.
-    endif ! of if (planet_type.eq."earth")
+    endif ! of if (planet_type.EQ."earth")
   ENDIF ! of IF( iapptrac.EQ.iapp_tracvl )