Changeset 228 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Jul 15, 2011, 8:33:51 PM (13 years ago)
Author:
aslmd
Message:

MESOSCALE: corrected the diagfi bug. updated test case and check those are still working OK. other changes are cosmetic

Location:
trunk/LMDZ.MARS/libf/phymars
Files:
3 edited

Legend:

Unmodified
Added
Removed

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

    r227 r228  
    138138
    139139         write(*,*) "Directory where external input files are:"
    140 #ifndef MESOSCALE
    141140         datafile="/u/forget/WWW/datagcm/datafile"
    142 #endif
    143141         call getin("datadir",datafile) ! default path
    144142         write(*,*) " datafile = ",trim(datafile)

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

    r227 r228  
    12411241         endif ! of if (tracer)
    12421242
     1243#ifndef MESOSCALE
    12431244c        -----------------------------------------------------------------
    12441245c        WSTATS: Saving statistics
    … …  
    12481249c        "stats")          only possible in 3D runs !
    12491250         
    1250 #ifndef MESOSCALE         
    12511251         IF (callstats) THEN
    12521252
    … …  
    13491349
    13501350         ENDIF !if callstats
    1351 #endif
    13521351
    13531352c        (Store EOF for Mars Climate database software)
    … …  
    13551354            CALL eofdump(ngrid, nlayer, zu, zv, zt, rho, ps)
    13561355         ENDIF
     1356#endif
    13571357
    13581358#ifdef MESOSCALE

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

    r38 r228  
    9090      integer, dimension(4) :: edges,corner
    9191     
    92 
     92#ifndef MESOSCALE
    9393!***************************************************************
    9494!Sortie des variables au rythme voulu
    … …  
    404404      ierr= NF_CLOSE(nid)
    405405
     406#endif
    406407      end
Note: See TracChangeset for help on using the changeset viewer.