Ignore:
Timestamp:
Aug 27, 2017, 8:30:09 AM (7 years ago)
Author:
aslmd
Message:

LMDZ.MARS yomlw 1. add the possibility to deallocate common modules with subroutine (as in previous commit) 2. moved xi initialization to yomlw

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r1266 r1772  
    8080      integer jk,jkk,ja,jl
    8181
    82       logical firstcall
    83       save firstcall
    84       data firstcall/.true./
    85 
    8682
    8783c----------------------------------------------------------------------
    8884c         0.3   Initialisation
    8985c               --------------
    90 
    91       if (firstcall) then
    92 
    93         firstcall = .false.
    94 
    95         xi (:,:,:,:)=0.
    96 
    97       endif
    9886
    9987      DO jl=1 , kdlon
Note: See TracChangeset for help on using the changeset viewer.