Changeset 1772 for trunk


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

Location:
trunk/LMDZ.MARS/libf/phymars
Files:
2 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

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

    r1224 r1772  
    3535    allocate(xi_ground(ngrid,nuco2))
    3636    allocate(xi_emis(ngrid,nuco2,nflev-1))
    37    
     37   
     38    xi (:,:,:,:)=0. ! initialisation previously done in lwmain at firstcall
     39 
    3840    ! initialize xp(),at(),bt(),ga(),gb(),cst_voigt()
    3941
    … …  
    7678 
    7779  end subroutine ini_yomlw_h
    78    
     80   
     81  subroutine end_yomlw_h
     82
     83    implicit none
     84
     85    if (allocated(xi)) deallocate(xi)
     86    if (allocated(xi_ground)) deallocate(xi_ground)
     87    if (allocated(xi_emis)) deallocate(xi_emis)
     88
     89  end subroutine end_yomlw_h
     90 
    7991end module yomlw_h
Note: See TracChangeset for help on using the changeset viewer.