Ignore:
Timestamp:
Mar 29, 2001, 10:51:45 AM (24 years ago)
Author:
lmdzadmin
Message:

Rajout de ok_nudge pour les runs nudges
LF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/trunk/libf/dyn3d/gcm.F

    r78 r190  
    137137      LOGICAL true_calendar
    138138      PARAMETER (true_calendar = .false.)
     139C Run nudge
     140      LOGICAL ok_nudge
     141      PARAMETER (ok_nudge = .false.)
    139142
    140143c-----------------------------------------------------------------------
     
    322325
    323326   1  CONTINUE
    324 c     call nudge(itau,ucov,vcov,teta,masse,ps)
     327
     328      if (ok_nudge) then
     329        call nudge(itau,ucov,vcov,teta,masse,ps)
     330      endif
    325331c
    326332c     IF( MOD( itau, 10* day_step ).EQ.0 )  THEN
Note: See TracChangeset for help on using the changeset viewer.