Changeset 1779 for trunk

Timestamp:

Aug 27, 2017, 11:07:00 AM (7 years ago)

Author:

aslmd

Message:

LMDZ.MARS (purely comments) marked the absolute firstcalls not supposed to change with runtime (e.g. not domain-related). this is most of them. those firstcall can stay local and do not need to be linked with the caller's general firstcall.

Location:

trunk/LMDZ.MARS/libf/phymars

Files:

• albedocaps.F90 (modified) (1 diff)
• callsedim.F (modified) (1 diff)
• co2snow.F (modified) (1 diff)
• convadj.F (modified) (1 diff)
• dustdevil.F (modified) (1 diff)
• improvedclouds.F (modified) (1 diff)
• newcondens.F (modified) (1 diff)
• newsedim.F (modified) (1 diff)
• nirco2abs.F (modified) (1 diff)
• read_dust_scenario.F90 (modified) (1 diff)
• simpleclouds.F (modified) (1 diff)
• vdif_kc.F (modified) (1 diff)
• vdifc.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/albedocaps.F90

@@ -27 +27 @@
 
 ! 1. Initializations
+! AS: OK firstcall absolute
 if (firstcall) then
   ! find out if user wants to use TES cap albedoes or not

trunk/LMDZ.MARS/libf/phymars/callsedim.F

@@ -136 +136 @@
 c       --------------------------
 
+      ! AS: firstcall OK absolute
       IF (firstcall) THEN
          

trunk/LMDZ.MARS/libf/phymars/co2snow.F

@@ -52 +52 @@
 c --------------
 
+      ! AS: firstcall OK absolute
       if (firstcall) then
 

trunk/LMDZ.MARS/libf/phymars/convadj.F

@@ -90 +90 @@
 !     --------------
 
+      ! AS: OK firstcall absolute
       IF (firstcall) THEN 
 

trunk/LMDZ.MARS/libf/phymars/dustdevil.F

@@ -86 +86 @@
 c    --------------
 
+      ! AS: OK firstcall absolute
       IF (firstcall) THEN
 

trunk/LMDZ.MARS/libf/phymars/improvedclouds.F

@@ -136 +136 @@
 c------------------------------------------------------------------
 
+      ! AS: firstcall OK absolute
       IF (firstcall) THEN
 !=============================================================

trunk/LMDZ.MARS/libf/phymars/newcondens.F

@@ -178 +178 @@
 c   --------------
 c
+      ! AS: firstcall OK absolute
       IF (firstcall) THEN
          

trunk/LMDZ.MARS/libf/phymars/newsedim.F

@@ -68 +68 @@
 c       --------------------------
 
+      ! AS: OK firstcall absolute
       IF (firstcall) THEN
 

trunk/LMDZ.MARS/libf/phymars/nirco2abs.F

@@ -102 +102 @@
 c     Initialisation
 c     --------------
+      ! AS: OK firstcall absolute
       if (firstcall) then
         if (nircorr.eq.1) then

trunk/LMDZ.MARS/libf/phymars/read_dust_scenario.F90

@@ -39 +39 @@
 realday=mod(zday,669.)
 
+! AS: firstcall OK absolute
 if (firstcall) then
    firstcall=.false.

trunk/LMDZ.MARS/libf/phymars/simpleclouds.F

@@ -62 +62 @@
 c     Local variables:
 
-      LOGICAL,SAVE :: firstcall = .true.
-            
       REAL rhocloud(ngrid,nlay)  ! Cloud density (kg.m-3)
 

trunk/LMDZ.MARS/libf/phymars/vdif_kc.F

@@ -220 +220 @@
 c.......................................................................
 
+      ! AS: OK firstcall absolute
       if(firstcall) then
         ico2=0

trunk/LMDZ.MARS/libf/phymars/vdifc.F

@@ -151 +151 @@
 c       --------------------------
 
+      ! AS: OK firstcall absolute
       IF (firstcall) THEN
 c        To compute: Tcond= 1./(bcond-acond*log(.0095*p)) (p in pascal)