Changeset 8670
- Timestamp:
- 2017-11-02T16:02:02+01:00 (6 years ago)
- Location:
- branches/UKMO/dev_r5518_GO6_package_r8356_plus_form_drag/NEMOGCM/NEMO/OPA_SRC/SBC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_r8356_plus_form_drag/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r8460 r8670 878 878 CASE ( 'none' ) 879 879 ssnd(jps_fmdice)%laction = .FALSE. 880 CASE ( ' coupled' )880 CASE ( 'ice', 'weighted ice' ) 881 881 ssnd(jps_fmdice)%laction = .TRUE. 882 882 CASE default ; CALL ctl_stop( 'sbc_cpl_init: wrong definition of sn_snd_fmd%cldes' ) 883 883 END SELECT 884 884 ! 885 IF(lwp) THEN ! control print886 WRITE(numout,*)887 WRITE(numout,*)'============================================================='888 WRITE(numout,*)'In sbc_cpl_init, after setting up ssnd(jps_fmdice)'889 WRITE(numout,*)'ssnd(jps_fmdice )%clname: ', ssnd(jps_fmdice )%clname890 WRITE(numout,*)'ssnd(jps_fmdice)%laction: ',ssnd(jps_fmdice)%laction891 WRITE(numout,*)'============================================================='892 WRITE(numout,*)893 ENDIF894 885 ! 895 886 ! ! ------------------------------- ! … … 970 961 ! ================================ ! 971 962 972 IF(lwp) THEN ! control print973 WRITE(numout,*)974 WRITE(numout,*)'============================================================='975 WRITE(numout,*)'In sbc_cpl_init, before call to cpl_define'976 WRITE(numout,*)'ssnd(jps_fmdice )%clname: ', ssnd(jps_fmdice )%clname977 WRITE(numout,*)'ssnd(jps_fmdice)%laction: ',ssnd(jps_fmdice)%laction978 WRITE(numout,*)'============================================================='979 WRITE(numout,*)980 ENDIF981 982 963 CALL cpl_define(jprcv, jpsnd, nn_cplmodel) 983 984 985 IF(lwp) THEN ! control print986 WRITE(numout,*)987 WRITE(numout,*)'============================================================='988 WRITE(numout,*)'In sbc_cpl_init, after call to cpl_define'989 WRITE(numout,*)'ssnd(jps_fmdice )%clname: ', ssnd(jps_fmdice )%clname990 WRITE(numout,*)'ssnd(jps_fmdice)%laction: ',ssnd(jps_fmdice)%laction991 WRITE(numout,*)'============================================================='992 WRITE(numout,*)993 ENDIF994 964 995 965 IF (ln_usecplmask) THEN … … 2658 2628 IF( ssnd(jps_rnf )%laction ) CALL cpl_snd( jps_rnf , isec, RESHAPE ( rnf , (/jpi,jpj,1/) ), info ) 2659 2629 IF( ssnd(jps_taum )%laction ) CALL cpl_snd( jps_taum , isec, RESHAPE ( taum, (/jpi,jpj,1/) ), info ) 2660 2661 !2662 IF(lwp) THEN ! control print2663 WRITE(numout,*)2664 WRITE(numout,*)'============================================================='2665 WRITE(numout,*)'In sbc_cpl_snd'2666 WRITE(numout,*)'ssnd(jps_fmdice )%clname: ', ssnd(jps_fmdice )%clname2667 WRITE(numout,*)'ssnd(jps_fmdice)%laction: ',ssnd(jps_fmdice)%laction2668 WRITE(numout,*)'============================================================='2669 WRITE(numout,*)2670 ENDIF2671 !2672 2630 2673 2631 #if defined key_cice 2674 2632 ztmp1(:,:) = sstfrz(:,:) + rt0 2675 2633 IF( ssnd(jps_sstfrz)%laction ) CALL cpl_snd( jps_sstfrz, isec, RESHAPE ( ztmp1, (/jpi,jpj,1/) ), info ) 2676 ztmp1(:,:) = fmdice(:,:) 2634 #endif 2635 ! 2636 ! 2637 ! ! ------------------------- ! 2638 ! ! Sea ice form drag ! 2639 ! ! ------------------------- ! 2640 #if defined key_cice 2641 IF( ssnd(jps_fmdice)%laction ) THEN 2642 SELECT CASE( sn_snd_fmd%cldes ) 2643 CASE( 'ice' ) 2644 ztmp1(:,:) = fmdice(:,:) 2645 CASE( 'weighted ice' ) 2646 ztmp1(:,:) = fmdice(:,:) * fr_i(:,:) 2647 CASE default ; CALL ctl_stop( 'sbc_cpl_snd: wrong definition of sn_snd_fmd%cldes' ) 2648 END SELECT 2649 ENDIF 2677 2650 IF( ssnd(jps_fmdice)%laction ) CALL cpl_snd( jps_fmdice, isec, RESHAPE ( ztmp1, (/jpi,jpj,1/) ), info ) 2678 2651 #endif -
branches/UKMO/dev_r5518_GO6_package_r8356_plus_form_drag/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90
r8484 r8670 271 271 ENDIF 272 272 273 IF(lwp) THEN ! control print274 WRITE(numout,*)275 WRITE(numout,*)'============================================================='276 WRITE(numout,*)'In cice_sbc_init, before call to cice2nemo for z0atm/fmdice'277 WRITE(numout,*)'MAXVAL(z0atm): ', MAXVAL(z0atm)278 WRITE(numout,*)'MAXLOC(z0atm): ', MAXLOC(z0atm)279 WRITE(numout,*)'MINVAL(z0atm): ', MINVAL(z0atm)280 WRITE(numout,*)'MINLOC(z0atm): ', MINLOC(z0atm)281 WRITE(numout,*)'============================================================='282 WRITE(numout,*)283 ENDIF284 285 273 CALL cice2nemo(z0atm,fmdice,'T', 1. ) 286 287 IF(lwp) THEN ! control print288 WRITE(numout,*)289 WRITE(numout,*)'============================================================='290 WRITE(numout,*)'In cice_sbc_init, after call to cice2nemo for z0atm/fmdice'291 WRITE(numout,*)'MAXVAL(z0atm): ', MAXVAL(z0atm)292 WRITE(numout,*)'MAXLOC(z0atm): ', MAXLOC(z0atm)293 WRITE(numout,*)'MINVAL(z0atm): ', MINVAL(z0atm)294 WRITE(numout,*)'MINLOC(z0atm): ', MINLOC(z0atm)295 WRITE(numout,*)'MAXVAL(fmdice): ', MAXVAL(fmdice)296 WRITE(numout,*)'MAXLOC(fmdice): ', MAXLOC(fmdice)297 WRITE(numout,*)'MINVAL(fmdice): ', MINVAL(fmdice)298 WRITE(numout,*)'MINLOC(fmdice): ', MINLOC(fmdice)299 WRITE(numout,*)'============================================================='300 WRITE(numout,*)301 ENDIF302 274 303 275 IF( .NOT. ln_rstart ) THEN
Note: See TracChangeset
for help on using the changeset viewer.