Ignore:
Timestamp:
Apr 2, 2001, 10:46:22 AM (23 years ago)
Author:
lmdz
Message:

Mise a niveau du offline FH
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/trunk/libf/dyn3d/nudge.F

    r189 r198  
     1c $Header
    12      subroutine nudge(itau,ucov,vcov,teta,masse,ps)
    23
    … …  
    7475      integer online
    7576      save first,online
    76       data first,online/.true.,-1/
     77      data first,online/.true.,1/
    7778
    7879      save ucovrea1,vcovrea1,tetarea1,masserea1,psrea1
Note: See TracChangeset for help on using the changeset viewer.