Changeset 2823 for trunk/LMDZ.MARS/libf/aeronomars

Timestamp:

Nov 18, 2022, 10:43:43 AM (2 years ago)

Author:

emillour

Message:

Mars GCM:
Remove the "tracer" (logical) flag as we now always run with at least
one tracer.
EM

File:

• trunk/LMDZ.MARS/libf/aeronomars/thermosphere.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/aeronomars/thermosphere.F

@@ -10 +10 @@
       implicit none
 
-#include "callkeys.h"
+      include "callkeys.h"
 
       integer,intent(in) :: ngrid ! number of atmospheric columns
@@ -43 +43 @@
 
       if (firstcall) then
-        if (.not. tracer) then
-          do l=1,nlayer
-            do ig=1,ngrid
-              rnew(ig,l)=r
-              cpnew(ig,l)=cpp
-            enddo
-          enddo
-        endif
+        rnew(1:ngrid,1:nlayer)=r
+        cpnew(1:ngrid,1:nlayer)=cpp
         firstcall= .false.
       endif