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

Timestamp:

Apr 30, 2019, 10:34:11 AM (6 years ago)

Author:

jvatant

Message:

Fic a bug in r2131 the writediagfi cannot be called
in RT routines because of the iradia it goes crazy with outputs freq ...
--JVO

File:

• trunk/LMDZ.TITAN/libf/phytitan/inifis_mod.F90 (modified) (1 diff)

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

@@ -341 +341 @@
      call getin_p("diagdtau",diagdtau)
      write(*,*)" diagdtau = ",diagdtau
-     ! sanity check
-     if (diagdtau.and.(ngrid.ne.1)) then
-       print*,"Diagnostic optical thickness can be output in 1D only !"
-       print*,"Start again with diagdtau=.false."
-       stop
-     endif
-
 
      write(*,*)"Uniform absorption in radiative transfer?"