Changeset 2880 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Jan 25, 2023, 1:53:24 PM (22 months ago)
Author:
llange
Message:

MARS PCM
Following R2879, remove stuff that were displayed on the screen
LL

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r2879 r2880  
    888888c       Local Solar zenith angle
    889889c       ~~~~~~~~~~~~~~~~~~~~~~~~
    890         write(*,*) 'mu0=',mu0(:)
     890
    891891        CALL orbite(zls,dist_sol,declin)
    892         write(*,*) 'mu0=',mu0(:)
     892
    893893        IF (diurnal) THEN
    894894            ztim1=SIN(declin)
    … …  
    902902            CALL mucorr(ngrid,declin,latitude,mu0,fract,10000.,rad)
    903903        ENDIF ! of IF (diurnal)
    904         write(*,*) 'mu0=',mu0(:),zls,declin
     904
    905905         IF( MOD(icount-1,iradia).EQ.0) THEN
    906906
    … …  
    10671067c          ---------------------------------------------------------
    10681068           IF(callslope) THEN
    1069           write(*,*) 'Flux=',fluxsurf_dn_sw(:,1),fluxsurf_dn_sw(:,2)
    1070           write(*,*) 'mu0=',mu0(:),zls,declin
    10711069            print *, 'Slope scheme is on and computing...'
    10721070            DO ig=1,ngrid 
Note: See TracChangeset for help on using the changeset viewer.