- Timestamp:
- Jun 29, 2018, 12:31:11 PM (6 years ago)
- Location:
- LMDZ6/branches/DYNAMICO-conv
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/DYNAMICO-conv
- Property svn:mergeinfo changed
-
LMDZ6/branches/DYNAMICO-conv/libf/phylmd/cv3_routines.F90
r3355 r3356 3405 3405 DO i = 2, nlp 3406 3406 DO il = 1, ncum 3407 upwd(il,i) = max(0., upwd(il,i-1) - up_to(il,i-1) + up_from(il,i-1)) 3407 IF (i<=inb(il)+1) THEN 3408 upwd(il,i) = max(0., upwd(il,i-1) - up_to(il,i-1) + up_from(il,i-1)) 3409 ENDIF 3408 3410 ENDDO 3409 3411 ENDDO … … 4372 4374 4373 4375 !inputs: 4374 INTEGER ncum, nd, na, nloc, len4375 REAL ment(nloc, na, na), sigij(nloc, na, na)4376 REAL clw(nloc, nd), elij(nloc, na, na)4377 REAL ep(nloc, na)4378 INTEGER icb(nloc), inb(nloc)4379 REAL Vprecip(nloc, nd+1)4376 INTEGER, INTENT (IN) :: ncum, nd, na, nloc, len 4377 INTEGER, DIMENSION (len), INTENT (IN) :: icb, inb 4378 REAL, DIMENSION (len, na, na), INTENT (IN) :: ment, sigij, elij 4379 REAL, DIMENSION (len, nd), INTENT (IN) :: clw 4380 REAL, DIMENSION (len, na), INTENT (IN) :: ep 4381 REAL, DIMENSION (len, nd+1), INTENT (IN) :: Vprecip 4380 4382 !ouputs: 4381 REAL da(nloc, na), phi(nloc, na, na) 4382 REAL phi2(nloc, na, na) 4383 REAL d1a(nloc, na), dam(nloc, na) 4384 REAL epmlmMm(nloc, na, na), eplaMm(nloc, na) 4383 REAL, DIMENSION (len, na, na), INTENT (OUT) :: phi, phi2, epmlmMm 4384 REAL, DIMENSION (len, na), INTENT (OUT) :: da, d1a, dam, eplaMm 4385 ! 4385 4386 ! variables pour tracer dans precip de l'AA et des mel 4386 4387 !local variables:
Note: See TracChangeset
for help on using the changeset viewer.