Changeset 9829
- Timestamp:
- 2018-06-22T11:25:32+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_NIWA-ifort-syntax-fix/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90
r9385 r9829 798 798 !! temporary variables 799 799 REAL(wp), INTENT( in ), DIMENSION(3,3) :: tiny_var, tiny_mask 800 CHARACTER( 25), INTENT( in ) :: var_nm800 CHARACTER(len=*), INTENT( in ) :: var_nm 801 801 REAL(wp), INTENT( in ) :: mini, maxi 802 802 REAL(wp), INTENT( out ) :: varout 803 803 REAL(wp) :: sumtsn, tsnavg 804 804 INTEGER :: summask 805 CHARACTER( 25) :: charout1, charout2805 CHARACTER(len=*) :: charout1, charout2 806 806 CHARACTER(60) :: charout3, charout4 807 807 INTEGER :: ii,ij
Note: See TracChangeset
for help on using the changeset viewer.