- Timestamp:
- 2016-06-19T11:36:47+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r6711_SIMPLIF_6_aerobulk/NEMOGCM/NEMO/OPA_SRC/DIU/step_diu.F90
r6017 r6723 64 64 65 65 ! Cool skin 66 IF ( .NOT.ln_diurnal ) CALL ctl_stop( "stp_diurnal: ln_diurnal not set")66 IF( .NOT.ln_diurnal ) CALL ctl_stop( "stp_diurnal: ln_diurnal not set" ) 67 67 68 IF ( .NOT. ln_blk_core ) THEN 69 CALL ctl_stop("step.f90: diurnal flux processing only implemented"//& 70 & " for core forcing") 71 ENDIF 68 IF( .NOT. ln_blk ) CALL ctl_stop( "stp_diurnal: diurnal flux processing only implemented for bulk forcing" ) 72 69 73 70 CALL diurnal_sst_coolskin_step( qns, taum, rhop(:,:,1), rdt)
Note: See TracChangeset
for help on using the changeset viewer.