Changeset 3462 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Feb 2, 2019, 1:57:31 AM (6 years ago)
Author:
fhourdin
Message:

Changing the call to iophy
FH

Location:
LMDZ6/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/phyetat0.F90

    r3459 r3462  
    524524  ENDIF
    525525
    526   CALL init_iophy_new(latitude_deg, longitude_deg)
     526! FH: Called outside phyetat0
     527!  CALL init_iophy_new(latitude_deg, longitude_deg)
    527528
    528529  ! Initilialize module fonte_neige_mod     

  • LMDZ6/trunk/libf/phylmd/physiq_mod.F90

    r3461 r3462  
    14881488       ENDIF
    14891489       ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    1490 !      CALL init_iophy_new(latitude_deg,longitude_deg)
     1490       IF (grid_type/=unstructured) CALL init_iophy_new(latitude_deg,longitude_deg)
    14911491
    14921492          !===================================================================
    … …  
    15841584       CALL create_etat0_limit_unstruct
    15851585       CALL phyetat0 ("startphy.nc",clesphy0,tabcntr0)
     1586       IF (grid_type==unstructured) CALL init_iophy_new(latitude_deg,longitude_deg)
    15861587
    15871588!jyg<
Note: See TracChangeset for help on using the changeset viewer.