- Timestamp:
- 2019-12-10T15:34:58+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_AGRIF-01-05_merged/src/NST/vremap.F90
r12123 r12151 374 374 DO jkout = 1, kjpk_out ! Loop over destination grid 375 375 ! 376 IF ( pzout(jkout) < pzin( 1 ) ) THEN ; ptout(jkout,1:kn_var) = ptin( 1 ,1:kn_var)377 ELSEIF ( pzout(jkout) > pzin(kjpk_in) ) THEN ; ptout(jkout,1:kn_var) = ptin( kjpk_in ,1:kn_var)378 ELSEIF ( ( pzout(jkout) > = pzin(1) ).AND.( pzout(jkout) <=pzin(kjpk_in) )) THEN376 IF ( pzout(jkout) <= pzin( 1 ) ) THEN ; ptout(jkout,1:kn_var) = ptin( 1 ,1:kn_var) 377 ELSEIF ( pzout(jkout) >= pzin(kjpk_in) ) THEN ; ptout(jkout,1:kn_var) = ptin( kjpk_in ,1:kn_var) 378 ELSEIF ( ( pzout(jkout) > pzin(1) ).AND.( pzout(jkout) < pzin(kjpk_in) )) THEN 379 379 DO jkin = 1, kjpk_in - 1 ! Loop over source grid 380 IF ( pzout(jkout) >= pzin(jkin) ) THEN380 IF ( pzout(jkout) < pzin(jkin+1) ) THEN 381 381 DO jn = 1, kn_var 382 382 ptout(jkout,jn) = ptin(jkin,jn) + & … … 390 390 ! 391 391 END DO 392 392 393 393 END SUBROUTINE remap_linear 394 394
Note: See TracChangeset
for help on using the changeset viewer.