Changeset 1407


Ignore:
Timestamp:
Jul 7, 2010, 12:31:52 PM (14 years ago)
Author:
Laurent Fairhead
Message:

Some extraneous prints deleted for optimisation purposes


Des prints supprimés pour optimisation

Location:
LMDZ4/trunk/libf
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/trunk/libf/dyn3d/calfis.F

    r1403 r1407  
    453453#ifdef CPP_EARTH
    454454
    455       write(lunout,*) 'PHYSIQUE AVEC NSPLIT_PHYS=',nsplit_phys
     455!      write(lunout,*) 'PHYSIQUE AVEC NSPLIT_PHYS=',nsplit_phys
    456456      zdt_split=dtphys/nsplit_phys
    457457      zdufic(:,:)=0.
  • LMDZ4/trunk/libf/dyn3dpar/calfis_p.F

    r1403 r1407  
    631631
    632632!$OMP MASTER
    633       write(lunout,*) 'PHYSIQUE AVEC NSPLIT_PHYS=',nsplit_phys
     633!      write(lunout,*) 'PHYSIQUE AVEC NSPLIT_PHYS=',nsplit_phys
    634634!$OMP END MASTER
    635635      zdt_split=dtphys/nsplit_phys
  • LMDZ4/trunk/libf/phylmd/fisrtilp.F

    r1403 r1407  
    140140      zdelq=0.0
    141141     
    142       print*,'CLOUDTH4 A. JAM'
     142!      print*,'CLOUDTH4 A. JAM'
    143143      IF (appel1er) THEN
    144144c
  • LMDZ4/trunk/libf/phylmd/thermcell_dv2.F90

    r1403 r1407  
    44      implicit none
    55
    6 #include "iniprint.h"
    76!=======================================================================
    87!
     
    4645!---------------------------
    4746
    48       print*,'THERMCELL DV2 OPTIMISE 3'
     47!      print*,'THERMCELL DV2 OPTIMISE 3'
    4948
    5049      nlarga0=0.
Note: See TracChangeset for help on using the changeset viewer.