Changeset 1722 for trunk/LMDZ.TITAN/libf/phytitan/inifis_mod.F90

Timestamp:

Jul 18, 2017, 4:15:23 PM (7 years ago)

Author:

jvatant

Message:

Adapt various modifs of LMDZ.GENERIC to LMDZ.TITAN from r1690-1694-1699-1709-1715
--JVO

File:

• trunk/LMDZ.TITAN/libf/phytitan/inifis_mod.F90 (modified) (2 diffs)

trunk/LMDZ.TITAN/libf/phytitan/inifis_mod.F90

@@ -10 +10 @@
 
   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
@@ -543 +542 @@
   ENDDO
 
+  ! initialize variables in radinc_h
   call ini_radinc_h(nlayer)
  
-  ! allocate "radcommon_h" arrays
-  call ini_radcommon_h()
-
   ! allocate "comsoil_h" arrays
   call ini_comsoil_h(ngrid)