Changeset 592 for trunk


Ignore:
Timestamp:
Mar 20, 2012, 11:10:29 AM (13 years ago)
Author:
acolaitis
Message:

Minor thermals tuning for GCM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/calltherm_interface.F90

    r561 r592  
    206206            r_aspect_thermals=0.7
    207207#else
    208             IF ((ptimestep .lt. 3699.*24./96.) .and. (iradia .eq. 1)) THEN
     208            IF ((ptimestep .le. 3699.*24./96.) .and. (iradia .eq. 1)) THEN
    209209               nsplit_thermals=10
    210210            ELSE
    211211               nsplit_thermals=35
    212212            ENDIF
    213             r_aspect_thermals=1.5
     213            r_aspect_thermals=1.
    214214#endif
    215215            call getin("nsplit_thermals",nsplit_thermals)
Note: See TracChangeset for help on using the changeset viewer.