/[MITgcm]/MITgcm/tools/OAD_support/w2f__types.F90
ViewVC logotype

Annotation of /MITgcm/tools/OAD_support/w2f__types.F90

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


Revision 1.1 - (hide annotations) (download)
Thu Sep 20 23:12:48 2012 UTC (11 years, 6 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint64y, checkpoint64x, checkpoint64z, checkpoint64o, checkpoint64a, checkpoint64q, checkpoint64p, checkpoint64s, checkpoint64r, checkpoint64u, checkpoint64t, checkpoint64w, checkpoint64v, checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint64n, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, checkpoint64b, checkpoint64e, checkpoint64d, checkpoint64c, checkpoint64g, checkpoint64f, checkpoint65z, checkpoint65x, checkpoint65y, checkpoint65r, checkpoint65s, checkpoint65p, checkpoint65q, checkpoint65v, checkpoint65w, checkpoint65t, checkpoint65u, checkpoint65j, checkpoint65k, checkpoint65h, checkpoint65i, checkpoint65n, checkpoint65o, checkpoint65l, checkpoint65m, checkpoint65b, checkpoint65c, checkpoint65a, checkpoint65f, checkpoint65g, checkpoint65d, checkpoint65e, checkpoint64i, checkpoint64h, checkpoint64k, checkpoint64, checkpoint65, checkpoint64j, checkpoint64m, checkpoint64l, HEAD
* Merge OAD_support from MITgcm_contrib/heimbach/OpenAD/OAD_support/
  to tools/OAD_support/
* Adjust genmake2 to reflect path change (attempt with ${OADTOOLS})
* Adjust insertTemplateDir.bash to reflect path change
Seems to work.

1 heimbach 1.1 module w2f__types
2    
3     integer :: w2f__4, w2f__8, w2f__16
4     parameter (w2f__4 = kind(0.0))
5     parameter (w2f__8 = kind(0.0d0))
6     parameter (w2f__16 = selected_real_kind(p=30))
7    
8     integer :: w2f__i1, w2f__i2, w2f__i4,w2f__i8
9     parameter (w2f__i1 = selected_int_kind(r=2))
10     parameter (w2f__i2 = selected_int_kind(r=3))
11     parameter (w2f__i4 = selected_int_kind(r=8))
12     parameter (w2f__i8 = selected_int_kind(r=16))
13    
14     end module w2f__types

  ViewVC Help
Powered by ViewVC 1.1.22