Changeset 1776 for trunk


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed

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

    r1774 r1776  
    273273c     --------------
    274274
     275! compute ndomain
     276! AS: moved out of firstcall to allow nesting+evoluting domain
     277! ------------------------------------------------------------
     278      ndomain= (ngrid-1) / ndomainsz + 1
     279
    275280      IF (firstcall) THEN
     281
     282         write(*,*) 'Splitting radiative calculations: ',
     283     $              ' ngrid,ndomainsz,ndomain',
     284     $                ngrid,ndomainsz,ndomain
    276285
    277286c        Assign a number to the different scatterers
    … …  
    356365         firstcall=.false.
    357366      END IF
    358 
    359 ! compute ndomain
    360 ! AS: moved out of firstcall to allow nesting+evoluting domain
    361 ! ------------------------------------------------------------
    362         ndomain= (ngrid-1) / ndomainsz + 1
    363         write(*,*) 'Splitting radiative calculations: ',
    364      $              ' ngrid,ndomainsz,ndomain',
    365      $                ngrid,ndomainsz,ndomain
    366367
    367368c     Computing aerosol optical properties and opacity
Note: See TracChangeset for help on using the changeset viewer.