/[MITgcm]/MITgcm/pkg/thsice/thsice_read_pickup.F
ViewVC logotype

Contents of /MITgcm/pkg/thsice/thsice_read_pickup.F

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

Revision 1.1 - (show annotations) (download)
Wed Apr 7 23:40:34 2004 UTC (20 years, 1 month ago) by jmc
Branch: MAIN
CVS Tags: checkpoint52n_post, checkpoint53d_post, checkpoint54a_pre, checkpoint55c_post, checkpoint54e_post, checkpoint54a_post, checkpoint53c_post, checkpoint55d_pre, checkpoint57d_post, checkpoint57g_post, checkpoint57b_post, checkpoint57c_pre, checkpoint55j_post, checkpoint56b_post, checkpoint57i_post, checkpoint57e_post, checkpoint55h_post, checkpoint53b_post, checkpoint57g_pre, checkpoint54b_post, checkpoint53b_pre, checkpoint55b_post, checkpoint54d_post, checkpoint56c_post, checkpoint52m_post, checkpoint55, checkpoint53a_post, checkpoint57f_pre, checkpoint57a_post, checkpoint54, checkpoint54f_post, checkpoint55g_post, checkpoint55f_post, checkpoint57a_pre, checkpoint55i_post, checkpoint57, checkpoint56, checkpoint53, eckpoint57e_pre, checkpoint57h_done, checkpoint53g_post, checkpoint57f_post, checkpoint57c_post, checkpoint55e_post, checkpoint53f_post, checkpoint55a_post, checkpoint53d_pre, checkpoint54c_post, checkpoint57h_pre, checkpoint57h_post, checkpoint56a_post, checkpoint55d_post 
major changes in pkg/thsice: allows atmospheric model (AIM) to use thsice.
- split thsice_therm.F in 2 S/R: thsice_solve4temp.F & thsice_calc_thickn.F
- move most of the ocean & bulk_force interface in thsice_main.F
- add a "slab ocean" component to be used with atmospheric model
1 C $Header: $
2 C $Name: $
3
4 #include "THSICE_OPTIONS.h"
5
6 CBOP
7 C !ROUTINE: THSICE_READ_PICKUP
8 C !INTERFACE:
9 SUBROUTINE THSICE_READ_PICKUP( prec, myIter, myThid )
10
11 C !DESCRIPTION: \bv
12 C *==========================================================*
13 C | S/R THSICE_READ_PICKUP
14 C | o Read thsice pickup file
15 C *==========================================================*
16 C \ev
17
18 C !USES:
19 IMPLICIT NONE
20
21 C === Global variables ===
22 #include "SIZE.h"
23 #include "EEPARAMS.h"
24 #include "PARAMS.h"
25 #include "THSICE_PARAMS.h"
26 #include "THSICE_VARS.h"
27
28 C !INPUT/OUTPUT PARAMETERS:
29 C == Routine arguments ==
30 INTEGER prec
31 INTEGER myIter
32 INTEGER myThid
33 CEOP
34
35 #ifdef ALLOW_THSICE
36
37 C == Local variables ==
38 CHARACTER*(MAX_LEN_FNAM) fn
39
40 WRITE(fn,'(A,I10.10)') 'pickup_ic.',myIter
41 CALL MDSREADFIELD(fn,prec,'RL',1,iceMask, 1,myThid)
42 CALL MDSREADFIELD(fn,prec,'RL',1,iceHeight, 2,myThid)
43 CALL MDSREADFIELD(fn,prec,'RL',1,snowHeight,3,myThid)
44 CALL MDSREADFIELD(fn,prec,'RL',1,Tsrf, 4,myThid)
45 CALL MDSREADFIELD(fn,prec,'RL',1,Tice1, 5,myThid)
46 CALL MDSREADFIELD(fn,prec,'RL',1,Tice2, 6,myThid)
47 CALL MDSREADFIELD(fn,prec,'RL',1,Qice1, 7,myThid)
48 CALL MDSREADFIELD(fn,prec,'RL',1,Qice2, 8,myThid)
49 CALL MDSREADFIELD(fn,prec,'RL',1,snowAge, 9,myThid)
50
51 IF ( stepFwd_oceMxL .AND. startIceModel.EQ.0 ) THEN
52 CALL MDSREADFIELD(fn,prec,'RL',1,tOceMxL, 10,myThid)
53 CALL MDSREADFIELD(fn,prec,'RL',1,sOceMxL, 11,myThid)
54 ENDIF
55
56 #endif /* ALLOW_THSICE */
57 RETURN
58 END
  ViewVC Help
Powered by ViewVC 1.1.22