File indexing completed on 2018-03-02 18:44:28 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
dc3432b742 Jean*0001 #include "THSICE_OPTIONS.h"
0002
0003
0004
0005
0006 SUBROUTINE THSICE_DO_EXCH( myThid )
0007
0008
0009
0010
0011
0012
0013
0014
0015 IMPLICIT NONE
0016
0017
0018 #include "EEPARAMS.h"
0019 #include "SIZE.h"
0020 #include "PARAMS.h"
0021 #include "THSICE_PARAMS.h"
0022 #include "THSICE_VARS.h"
0023
0024
0025
0026 INTEGER myThid
0027
0028
0029 #ifdef ALLOW_THSICE
0030
0031
0032 CALL EXCH_XY_RL( iceMask, myThid )
0033 IF ( useSEAICE .OR. thSIceAdvScheme.GT.0 ) THEN
0034
0035 CALL EXCH_XY_RL( iceHeight, myThid )
0036 CALL EXCH_XY_RL( snowHeight, myThid )
0037 CALL EXCH_XY_RL( Qice1, myThid )
0038 CALL EXCH_XY_RL( Qice2, myThid )
0039 ENDIF
0040
0041 #endif /* ALLOW_THSICE */
0042
0043 RETURN
0044 END