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

Annotation of /MITgcm/pkg/thsice/thsice_write_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     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