Changeset 574 for trunk/MESOSCALE


Ignore:
Timestamp:
Mar 8, 2012, 12:53:51 AM (13 years ago)
Author:
aslmd
Message:

MESOSCALE: newphys. the 18 soil layers. I am just too stupid I can't remember it. now there is a test.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/module_lmd_driver.F

    r515 r574  
    902902   tsoil_val(k) = tsurf_val
    903903#ifdef NEWPHYS
     904   IF ( nsoil .lt. 18 ) THEN
     905       PRINT *,'** Mars ** WRONG NUMBER OF SOIL LAYERS !!! SHOULD BE 18 AND IT IS ',nsoil
     906       STOP
     907   ENDIF
    904908   IF ( (i == ips) .AND. (j == jps) ) PRINT *,'** Mars ** IDEALIZED SIMULATION isoil and dsoil standard'
    905909   isoil_val(k) = inertiedat_val
Note: See TracChangeset for help on using the changeset viewer.