- Timestamp:
- 2019-11-01T15:20:20+01:00 (4 years ago)
- Location:
- branches/UKMO/dev_r5518_GO6_package_FOAMv14_Kw660/NEMOGCM/NEMO
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_FOAMv14_Kw660/NEMOGCM/NEMO/OPA_SRC/STO/stopack.F90
r11442 r11842 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 -
branches/UKMO/dev_r5518_GO6_package_FOAMv14_Kw660/NEMOGCM/NEMO/TOP_SRC/MEDUSA/air_sea.F90
r10302 r11842 203 203 (zalk(ji,jj) > 35.0E2 ).OR.(zalk(ji,jj) <= 0.0 ) .OR. & 204 204 (zdic(ji,jj) > 35.0E2 ).OR.(zdic(ji,jj) <= 0.0 ) .OR. & 205 (f_kw660(ji,jj) > 1.0E-2 ).OR.(f_kw660(ji,jj) < 0.0 ) ) THEN206 IF(lwp) THEN205 (f_kw660(ji,jj) > 2.0E-2 ).OR.(f_kw660(ji,jj) < 0.0 ) ) THEN 206 !IF(lwp) THEN 207 207 WRITE(numout,*) ' surface T = ',ztmp(ji,jj) 208 208 WRITE(numout,*) ' surface S = ',zsal(ji,jj) … … 219 219 ' kt = ', kt 220 220 WRITE(numout,*) 'MEDUSA - Air-Sea INPUT: unrealistic surface Carb. Chemistry' 221 ENDIF 221 WRITE(numout,*) 'E R R O R' 222 !ENDIF 222 223 CALL ctl_stop( 'MEDUSA - Air-Sea INPUT: ', & 223 224 'unrealistic surface Carb. Chemistry -- INPUTS' )
Note: See TracChangeset
for help on using the changeset viewer.