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

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

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

Revision 1.1 - (hide 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 jmc 1.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