source: LMDZ5/branches/testing/libf/phymar/parclimf.F90 @ 3525

Last change on this file since 3525 was 2160, checked in by Laurent Fairhead, 10 years ago

Merged trunk changes -r2070:2158 into testing branch. Compilation problems introduced by revision r2155 have been corrected by hand

File size: 404 bytes
Line 
1MODULE PARCLIMF
2
3#include "tsmbkind.h"
4
5USE PARCLI
6
7
8IMPLICIT NONE
9
10SAVE
11
12!------------------------------------------------------------------------------
13!     JPNCHS : Number of *N108* fields (depending on JPNMOI).
14!     JPNCHF : Number of final  fields (depending on JPNMOI).
15
16INTEGER_M, PARAMETER :: JPNCHS=JPNMOS*JPNMOI+JPNFIS
17INTEGER_M, PARAMETER :: JPNCHF=JPNMOF*JPNMOI+JPNFIF
18
19END MODULE PARCLIMF
Note: See TracBrowser for help on using the repository browser.