Changeset 484


Ignore:
Timestamp:
Dec 20, 2011, 12:00:51 PM (13 years ago)
Author:
aslmd
Message:

GENERIC: Allocatable gastype in sugas_corrk instead of hardcoded (it was a problem for more than 4 gases) JL + AS.

Location:
trunk/LMDZ.GENERIC
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.GENERIC/README

    r471 r484  
    571571- Outside su_gases.F90, very few modifications to the code : the new module "gases_h.F90" simply replaces the old common "gases.h" !
    572572- Compiles fine. Tested with debugging options through pgdbg. Runs fine. Exact same results in Early Mars test case.
     573
     574== 20/12/2011 == JL + AS
     575- Allocatable gastype in sugas_corrk instead of hardcoded (it was a problem for more than 4 gases!)
  • trunk/LMDZ.GENERIC/libf/phystd/radcommon_h.F90

    r470 r484  
    6262! gIR      :  mean assymetry factor
    6363
    64 
    65       character(len=3) :: gastype(3)
    6664
    6765      REAL*8 BWNI(L_NSPECTI+1), WNOI(L_NSPECTI), DWNI(L_NSPECTI), WAVEI(L_NSPECTI)
  • trunk/LMDZ.GENERIC/libf/phystd/setspv.F90

    r374 r484  
    2525      use radinc_h,    only: L_NSPECTV, corrkdir, banddir
    2626      use radcommon_h, only: BWNV,BLAMV,WNOV,DWNV,WAVEV, &
    27                              STELLARF,TAURAY,gastype
     27                             STELLARF,TAURAY
    2828      use datafile_mod, only: datadir
    2929
  • trunk/LMDZ.GENERIC/libf/phystd/sugas_corrk.F90

    r471 r484  
    2222      use radcommon_h, only : tgasref,tgasmin,tgasmax
    2323      use radcommon_h, only : gasv,gasi,FZEROI,FZEROV,gweight
    24       use radcommon_h, only : wrefvar,gastype
     24      use radcommon_h, only : wrefvar
    2525      use datafile_mod, only: datadir
    2626      use gases_h
     
    4141      !! ALLOCATABLE ARRAYS -- AS 12/2011
    4242      REAL*8, DIMENSION(:,:,:,:,:), ALLOCATABLE :: gasi8, gasv8
     43      character*3,allocatable,DIMENSION(:) :: gastype ! for check with gnom
    4344
    4445      real*8 x, xi(4), yi(4), ans, p
     
    9798      endif
    9899
    99 
     100      IF ( .NOT. ALLOCATED( gastype ) ) ALLOCATE( gastype( ngas ) )
    100101      do n=1,ngas
    101102         read(111,*) gastype(n)
     
    536537      IF( ALLOCATED( gasv8 ) ) DEALLOCATE( gasv8 )
    537538      IF( ALLOCATED( pgasref ) ) DEALLOCATE( pgasref )
    538 
     539      IF( ALLOCATED( gastype ) ) DEALLOCATE( gastype )
    539540
    540541      return
Note: See TracChangeset for help on using the changeset viewer.