Ignore:
Timestamp:
Jun 5, 2012, 1:41:39 PM (13 years ago)
Author:
acolaitis
Message:

GCM: modifications to allow for nesting compilation. Transparent to GCM user. MESOSCALE: handling of functions and modules for nesting compilation. Full nested configuration with new physics is now fully compiling.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r633 r695  
    161161          !! ... + TERM B
    162162          yeah = (rap-cost)/yeah
    163           fshape = fshape + rap*rap*rap*(2.-3.*yeah+yeah*yeah*yeah)
     163          fshape = fshape +
     164     & rap*rap*rap*(2.-3.*yeah+yeah*yeah*yeah)
    164165          !! ... + TERM C
    165166          fshape = fshape + 3. * cost * rap * rap * (yeah-1.)
Note: See TracChangeset for help on using the changeset viewer.