Skip to content
Snippets Groups Projects
Commit c46b8efb authored by WURTZ Jean's avatar WURTZ Jean
Browse files

Keep variables needed for MNH

parent c9f9fcfc
No related branches found
No related tags found
No related merge requests found
......@@ -137,6 +137,7 @@ USE MODI_MAKE_CHOICE_ARRAY
USE MODI_READ_SURF
USE MODI_READ_ISBA_n
USE MODI_READ_ISBA_NUDGING_n
!USE MODI_INIT_ISBA_LANDUSE
USE MODI_READ_SBL_n
USE MODI_INIT_VEG_n
USE MODI_INIT_CHEMICAL_n
......@@ -1040,26 +1041,27 @@ DO JP = 1,IO%NPATCH
ENDDO
!
! Useledd fields from now on
ISS%XAOSIP => NULL()
ISS%XAOSIM => NULL()
ISS%XAOSJP => NULL()
ISS%XAOSJM => NULL()
ISS%XHO2IP => NULL()
ISS%XHO2IM => NULL()
ISS%XHO2JP => NULL()
ISS%XHO2JM => NULL()
!
K%XCGSAT => NULL()
K%XC4B => NULL()
K%XACOEF => NULL()
K%XPCOEF => NULL()
!
K%XHCAPSOIL => NULL()
K%XCONDDRY => NULL()
K%XCONDSLD => NULL()
!
K%XWDRAIN => NULL()
K%XRUNOFFB => NULL()
! J. Wurtz -> usefull for nesting
!ISS%XAOSIP => NULL()
!ISS%XAOSIM => NULL()
!ISS%XAOSJP => NULL()
!ISS%XAOSJM => NULL()
!ISS%XHO2IP => NULL()
!ISS%XHO2IM => NULL()
!ISS%XHO2JP => NULL()
!ISS%XHO2JM => NULL()
!
!K%XCGSAT => NULL()
!K%XC4B => NULL()
!K%XACOEF => NULL()
!K%XPCOEF => NULL()
!
!K%XHCAPSOIL => NULL()
!K%XCONDDRY => NULL()
!K%XCONDSLD => NULL()
!
!K%XWDRAIN => NULL()
!K%XRUNOFFB => NULL()
!
!-------------------------------------------------------------------------------
!
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment