- Timestamp:
- 2019-12-06T18:56:08+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_FOAMv14/NEMOGCM/NEMO/OPA_SRC/STO/stopack.F90
r11442 r12102 1022 1022 DO jk=1,jpk 1023 1023 coeff(:,:,jk) = exp(gauss) * coeff(:,:,jk) 1024 ENDDO F1024 ENDDO 1025 1025 #elif defined key_dynldf_c2d 1026 1026 coeff = exp(gauss) * coeff … … 1033 1033 DO jk=1,jpk 1034 1034 coeff(:,:,jk) = exp(gauss) * coeff(:,:,jk) 1035 ENDDO F1035 ENDDO 1036 1036 #elif defined key_dynldf_c2d 1037 1037 coeff = exp(gauss) * coeff
Note: See TracChangeset
for help on using the changeset viewer.