Changeset 1715 for trunk/LMDZ.GENERIC/libf/phystd/inifis_mod.F90

Timestamp:

Jun 8, 2017, 1:03:06 AM (7 years ago)

Author:

jvatant

Message:

Cleaning of the radiative code + coherence between optci and optcv :

+ Get rid of the actually dummy and confusing extra level L_LEVELS+1 for aerosols
+ Harmonisation between optci and optcv
+ Get rid of tauref (called nowhere) and csqtly of ini_radcommon subroutine

JVO

File:

• trunk/LMDZ.GENERIC/libf/phystd/inifis_mod.F90 (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phystd/inifis_mod.F90

@@ -11 +11 @@
   use init_print_control_mod, only: init_print_control
   use radinc_h, only: ini_radinc_h, naerkind
-  use radcommon_h, only: ini_radcommon_h
   use datafile_mod, only: datadir
   use comdiurn_h, only: sinlat, coslat, sinlon, coslon
@@ -762 +761 @@
   call ini_radinc_h(nlayer)
  
-  ! allocate "radcommon_h" arrays
-  call ini_radcommon_h()
-
   ! allocate "comsoil_h" arrays
   call ini_comsoil_h(ngrid)