/[MITgcm]/MITgcm/pkg/seaice/seaice_map_thsice.F
ViewVC logotype

Contents of /MITgcm/pkg/seaice/seaice_map_thsice.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.1 - (show annotations) (download)
Mon Jun 5 22:46:50 2006 UTC (17 years, 10 months ago) by mlosch
Branch: MAIN
CVS Tags: checkpoint58l_post, checkpoint58u_post, checkpoint58w_post, checkpoint60, checkpoint61, checkpoint58r_post, checkpoint58n_post, checkpoint58x_post, checkpoint58t_post, checkpoint58h_post, checkpoint58q_post, checkpoint59q, checkpoint59p, checkpoint59r, checkpoint58j_post, checkpoint59e, checkpoint59d, checkpoint59g, checkpoint59f, checkpoint59a, checkpoint59c, checkpoint59b, checkpoint59m, checkpoint59l, checkpoint59o, checkpoint59n, checkpoint59i, checkpoint59h, checkpoint59k, checkpoint59j, checkpoint59, checkpoint58i_post, checkpoint58g_post, checkpoint58o_post, checkpoint58y_post, checkpoint58k_post, checkpoint58v_post, checkpoint58s_post, checkpoint61f, checkpoint61g, checkpoint61d, checkpoint61e, checkpoint61b, checkpoint61c, checkpoint58p_post, checkpoint61a, checkpoint61n, checkpoint61o, checkpoint61l, checkpoint61m, checkpoint61j, checkpoint61k, checkpoint61h, checkpoint61i, checkpoint61p, checkpoint61q, checkpoint58m_post 
o modifications and additions necessary for coupling thsice to seaice
  - major change in seaice_advdiff to make advection and diffusion
    more transparent
  - two new routines for mapping and computing advection and
    diffusion, makes seaice_diffusion obsolete
1 C $Header: $
2 C $Name: $
3
4 #include "SEAICE_OPTIONS.h"
5 #ifdef ALLOW_THSICE
6 # include "THSICE_OPTIONS.h"
7 #endif /* ALLOW_THSICE */
8
9 CStartOfInterface
10 SUBROUTINE SEAICE_MAP_THSICE( myTime, myIter, myThid )
11 C /==========================================================\
12 C | SUBROUTINE SEAICE_MAP_THSICE |
13 C | o Map thermodynamic thsice variable iceMask and |
14 C | to seaice variables HEFF and AREA |
15 C |==========================================================|
16 C | written by Martin Losch, June 2006 |
17 C \==========================================================/
18 IMPLICIT NONE
19
20 C === Global variables ===
21 #include "SIZE.h"
22 #include "EEPARAMS.h"
23 #include "SEAICE.h"
24 #ifdef ALLOW_THSICE
25 # include "THSICE_VARS.h"
26 #endif /* ALLOW_THSICE */
27
28 C === Routine arguments ===
29 C myTime - Simulation time
30 C myIter - Simulation timestep number
31 C myThid - Thread no. that called this routine.
32 _RL myTime
33 INTEGER myIter
34 INTEGER myThid
35 CEndOfInterface
36
37 #ifdef ALLOW_THSICE
38 C === Local variables ===
39 C i,j,bi,bj - Loop counters
40
41 INTEGER i, j, bi, bj
42
43 DO bj=myByLo(myThid),myByHi(myThid)
44 DO bi=myBxLo(myThid),myBxHi(myThid)
45 DO j=1-Oly,sNy+Oly
46 DO i=1-Olx,sNx+Olx
47 AREA(i,j,1,bi,bj) = iceMask(i,j,bi,bj)
48 HEFF(i,j,1,bi,bj) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj)
49 ENDDO
50 ENDDO
51 ENDDO
52 ENDDO
53
54 #endif /* ALLOW_THSICE */
55 RETURN
56 END
  ViewVC Help
Powered by ViewVC 1.1.22