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

Contents of /MITgcm/pkg/thsice/thsice_write_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 CBOP
6 C !ROUTINE: THSICE_WRITE_PICKUP
7 C !INTERFACE:
8 SUBROUTINE THSICE_WRITE_PICKUP(
9 I prec, lgf, permCheckPoint,
10 I myIter, myThid )
11
12 C !DESCRIPTION: \bv
13 C *==========================================================*
14 C | S/R THSICE_WRITE_PICKUP
15 C | o Write thsice pickup file
16 C *==========================================================*
17 C \ev
18
19 C !USES:
20 IMPLICIT NONE
21
22 C === Global variables ===
23 #include "SIZE.h"
24 #include "EEPARAMS.h"
25 #include "PARAMS.h"
26 #include "THSICE_PARAMS.h"
27 #include "THSICE_VARS.h"
28
29 C == Common blocks ==
30 COMMON /PCKP_GBLFLS/ globalFile
31 LOGICAL globalFile
32
33 C !INPUT/OUTPUT PARAMETERS:
34 C == Routine arguments ==
35 INTEGER prec
36 LOGICAL lgf
37 LOGICAL permCheckPoint
38 INTEGER myIter
39 INTEGER myThid
40 CEOP
41
42 #ifdef ALLOW_THSICE
43
44 C == Local variables ==
45 CHARACTER*(MAX_LEN_FNAM) fn
46
47 IF ( permCheckPoint ) THEN
48 WRITE(fn,'(A,I10.10)') 'pickup_ic.',myIter
49 ELSE
50 WRITE(fn,'(A,A)') 'pickup_ic.',checkPtSuff(nCheckLev)
51 ENDIF
52
53 CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,iceMask, 1,
54 & myIter,myThid)
55 CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,iceHeight, 2,
56 & myIter,myThid)
57 CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,snowHeight,3,
58 & myIter,myThid)
59 CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Tsrf, 4, myIter,myThid)
60 CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Tice1, 5, myIter,myThid)
61 CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Tice2, 6, myIter,myThid)
62 CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Qice1, 7, myIter,myThid)
63 CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Qice2, 8, myIter,myThid)
64 CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,snowAge,9, myIter,myThid)
65
66 IF ( stepFwd_oceMxL ) THEN
67 CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,tOceMxL,10,myIter,myThid)
68 CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,sOceMxL,11,myIter,myThid)
69 ENDIF
70 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
71
72 #endif /* ALLOW_THSICE */
73 RETURN
74 END
  ViewVC Help
Powered by ViewVC 1.1.22