Changeset 14200 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/TOP/AGE/trcsms_age.F90
- Timestamp:
- 2020-12-17T15:36:44+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/TOP/AGE/trcsms_age.F90
r12377 r14200 56 56 IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~' 57 57 58 IF( l_1st_euler .OR. ln_top_euler ) THEN 59 tr(:,:,:,jp_age,Kbb) = tr(:,:,:,jp_age,Kmm) 60 ENDIF 61 58 62 59 63 DO jk = 1, nla_age
Note: See TracChangeset
for help on using the changeset viewer.