Changeset 1479


Ignore:
Timestamp:
Jan 28, 2011, 3:32:46 PM (13 years ago)
Author:
Laurent Fairhead
Message:

Un peu de ménage sur les prints

A little cleanup on the prints

Location:
LMDZ5/trunk/libf/phylmd
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/cv3_routines.F

    r1468 r1479  
    3838      CHARACTER (LEN=20) :: modname='cv3_param'
    3939      CHARACTER (LEN=80) :: abort_message
     40      LOGICAL, SAVE :: FIRST=.TRUE.
     41!$OMP THREADPRIVATE(FIRST)
     42
    4043
    4144c noff: integer limit for convection (nd-noff)
    … …  
    100103      CLOSE(99)
    1011049999  Continue
    102       WRITE(*,*)'dpbase=',dpbase
    103       WRITE(*,*)'pbcrit=',pbcrit
    104       WRITE(*,*)'ptcrit=',ptcrit
    105       WRITE(*,*)'sigdz=',sigdz
    106       WRITE(*,*)'spfac=',spfac
     105      if (first) then
     106        WRITE(*,*)'dpbase=',dpbase
     107        WRITE(*,*)'pbcrit=',pbcrit
     108        WRITE(*,*)'ptcrit=',ptcrit
     109        WRITE(*,*)'sigdz=',sigdz
     110        WRITE(*,*)'spfac=',spfac
     111      endif
    107112
    108113      return

  • LMDZ5/trunk/libf/phylmd/fisrtilp.F

    r1411 r1479  
    2525#include "tracstoke.h"
    2626#include "fisrtilp.h"
     27#include "iniprint.h"
    2728c
    2829c Arguments:
    … …  
    142143      zdelq=0.0
    143144     
    144       print*,'NUAGES4 A. JAM'
     145      if (prt_level>9)write(lunout,*)'NUAGES4 A. JAM'
    145146      IF (appel1er) THEN
    146147c

  • LMDZ5/trunk/libf/phylmd/newmicro.F

    r1337 r1479  
    5151#include "radopt.h"
    5252c choix de l'hypothese de recouvrememnt nuageuse
    53       LOGICAL RANDOM,MAXIMUM_RANDOM,MAXIMUM,FIRST
     53      LOGICAL RANDOM,MAXIMUM_RANDOM,MAXIMUM
    5454      parameter (RANDOM=.FALSE., MAXIMUM_RANDOM=.TRUE., MAXIMUM=.FALSE.)
     55      LOGICAL, SAVE :: FIRST=.TRUE.
     56!$OMP THREADPRIVATE(FIRST)
     57
    5558c Hypoyhese de recouvrement : MAXIMUM_RANDOM
    5659      INTEGER flag_max
    … …  
    526529            ENDDO
    527530     
    528             FIRST=.TRUE.
    529 
    530531            DO i=1,klon
    531532               DO k=klev-1,1,-1 !From TOA down

  • LMDZ5/trunk/libf/phylmd/physiq.F

    r1465 r1479  
    28342834! de la convection profonde.
    28352835
    2836          print*,'TEST SCHEMA DE NUAGES '
     2836         if (prt_level>9)write(*,*)'TEST SCHEMA DE NUAGES '
    28372837         do k=1,klev
    28382838            do i=1,klon
Note: See TracChangeset for help on using the changeset viewer.