Changeset 2281 for trunk/LMDZ.MARS/libf/phymars/tabfi.F

Timestamp:

Apr 8, 2020, 6:35:50 PM (5 years ago)

Author:

adelavois

Message:

Mars GCM:
Martian physics is now able to start without startfi.nc
Major update for phyetat0_mod and physiq_mod based on what have been done for the Generic physics

File:

• trunk/LMDZ.MARS/libf/phymars/tabfi.F (modified) (4 diffs)

trunk/LMDZ.MARS/libf/phymars/tabfi.F

@@ -43 +43 @@
 c
 c=======================================================================
+! to use  'getin_p'
+      use ioipsl_getin_p_mod, only: getin_p
 
       use comsoil_h, only: volcapa ! soil volumetric heat capacity
@@ -81 +83 @@
       CHARACTER modif*20
       LOGICAL :: found
+      CHARACTER(len=5) :: modname="tabfi"
 
       write(*,*)"tabfi: nid=",nid," tab0=",tab0," Lmodif=",Lmodif
@@ -88 +91 @@
 c-----------------------------------------------------------------------
       IF (nid.eq.0) then
+
+      ! to avoid further issues with writing 
+      tab_cntrl(:)=0
+      lmax=0 
+      day_ini=0
+      time = 0
  
 c Reference pressure
@@ -150 +159 @@
        call get_var("controle",tab_cntrl,found)
        if (.not.found) then
-         write(*,*)"tabfi: Failed reading <controle> array"
-         call abort
+         call abort_physic(modname, 
+     &        "tabfi: Failed reading <controle> array",1)
        else
          write(*,*)'tabfi: tab_cntrl',tab_cntrl