Changeset 3372 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Jul 15, 2018, 12:11:53 PM (6 years ago)
Author:
idelkadi
Message:

Implementation de COSPv2 dans LMDZ (Corrections)

Location:
LMDZ6/trunk/libf/phylmd/cosp2
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/cosp2/cosp.F90

    r3358 r3372  
    13571357    if (use_vgrid) then
    13581358      Nlvgrid  = Nvgrid
     1359      if (.not. allocated(vgrid_zl)) allocate(vgrid_zl(Nlvgrid))
     1360      if (.not. allocated(vgrid_zu)) allocate(vgrid_zu(Nlvgrid))
     1361      if (.not. allocated(vgrid_z)) allocate(vgrid_z(Nlvgrid))
     1362
    13591363      print*,'allocation vgrid_zl zu z dans  COSP_INIT'
    1360        allocate(vgrid_zl(Nlvgrid),vgrid_zu(Nlvgrid),vgrid_z(Nlvgrid))
     1364!       allocate(vgrid_zl(Nlvgrid),vgrid_zu(Nlvgrid),vgrid_z(Nlvgrid))
    13611365       ! CloudSat grid requested
    13621366       if (luseCSATvgrid)       zstep = 480._wp
     
    13701374    else
    13711375       Nlvgrid = Nlevels
    1372        allocate(vgrid_zl(Nlvgrid),vgrid_zu(Nlvgrid),vgrid_z(Nlvgrid))
     1376      if (.not. allocated(vgrid_zl)) allocate(vgrid_zl(Nlvgrid))
     1377      if (.not. allocated(vgrid_zu)) allocate(vgrid_zu(Nlvgrid))
     1378      if (.not. allocated(vgrid_z)) allocate(vgrid_z(Nlvgrid))
    13731379    endif
    13741380
     
    13931399  !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    13941400  subroutine cosp_cleanUp()
    1395     deallocate(vgrid_zl,vgrid_zu,vgrid_z)
     1401    if (allocated(vgrid_zl)) deallocate(vgrid_zl)
     1402    if (allocated(vgrid_zu)) deallocate(vgrid_zu)
     1403    if (allocated(vgrid_z)) deallocate(vgrid_z)
    13961404  end subroutine cosp_cleanUp
    13971405   
  • LMDZ6/trunk/libf/phylmd/cosp2/cosp_read_otputkeys.F90

    r3365 r3372  
    659659  if (Lproftemp)                cfg%out_list(i) = 'proftemp'         !TIBO
    660660   
    661   if (i /= 78) then
     661  if (i.gt.78) then
    662662     print *, 'COSP_IO: wrong number of output diagnostics'
    663663     print *, i,78
Note: See TracChangeset for help on using the changeset viewer.