Changeset 1776 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

Aug 27, 2017, 9:05:40 AM (7 years ago)

Author:

aslmd

Message:

LMDZ.MARS callradite (minor): moved a print inside firstcall to lower verbosity

File:

• trunk/LMDZ.MARS/libf/phymars/callradite_mod.F (modified) (2 diffs)

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

@@ -273 +273 @@
 c     --------------
 
+! compute ndomain
+! AS: moved out of firstcall to allow nesting+evoluting domain
+! ------------------------------------------------------------
+      ndomain= (ngrid-1) / ndomainsz + 1
+
       IF (firstcall) THEN
+
+         write(*,*) 'Splitting radiative calculations: ',
+     $              ' ngrid,ndomainsz,ndomain',
+     $                ngrid,ndomainsz,ndomain
 
 c        Assign a number to the different scatterers
@@ -356 +365 @@
          firstcall=.false.
       END IF
-
-! compute ndomain
-! AS: moved out of firstcall to allow nesting+evoluting domain
-! ------------------------------------------------------------
-        ndomain= (ngrid-1) / ndomainsz + 1
-        write(*,*) 'Splitting radiative calculations: ',
-     $              ' ngrid,ndomainsz,ndomain',
-     $                ngrid,ndomainsz,ndomain
 
 c     Computing aerosol optical properties and opacity