Changeset 2715 for trunk/NEMOGCM/NEMO/OPA_SRC/lib_print.f90
- Timestamp:
- 2011-03-30T17:58:35+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/lib_print.f90
r2528 r2715 10 10 !! prizre : print an real 2D vertical field 11 11 !!---------------------------------------------------------------------- 12 !! * Mules used13 12 USE par_kind ! kind parameters 14 13 … … 16 15 PRIVATE 17 16 18 !! * Routine accessibility 19 PUBLIC prihin, prihre, prizre 20 !!---------------------------------------------------------------------- 17 PUBLIC prihin, prihre, prizre 18 21 19 !!---------------------------------------------------------------------- 22 20 !! NEMO/OPA 3.3 , NEMO Consortium (2010) … … 40 38 !! ! 03-07 (G. Madec) F90, free form 41 39 !!---------------------------------------------------------------------- 42 !! * Arguments43 40 INTEGER, INTENT( in ) :: & 44 41 ki, kj, & ! array dimensions
Note: See TracChangeset
for help on using the changeset viewer.