source: LMDZ6/branches/DYNAMICO-conv-GC/libf/phymar/parclimf.F90 @ 3736

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

Inclusion de la physique de MAR


Integration of MAR physics

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.