New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 8460 for branches/UKMO – NEMO

Changeset 8460 for branches/UKMO


Ignore:
Timestamp:
2017-08-23T18:23:13+02:00 (7 years ago)
Author:
jamrae
Message:

Moved lines setting up ssnd(jps_fmdice), as they were in the wrong place.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_r8356_plus_form_drag/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r8459 r8460  
    612612         ENDIF 
    613613      ENDIF 
    614       !                                                      ! ------------------------- ! 
    615       !                                                      !   Sea ice form drag       ! 
    616       !                                                      ! ------------------------- ! 
    617       ssnd(jps_fmdice )%clname = 'OIceFmd' 
    618       SELECT CASE ( TRIM( sn_snd_fmd%cldes ) ) 
    619          CASE ( 'none' ) 
    620             ssnd(jps_fmdice)%laction = .FALSE. 
    621          CASE ( 'coupled' )  
    622             ssnd(jps_fmdice)%laction = .TRUE. 
    623          CASE default   ;   CALL ctl_stop( 'sbc_cpl_init: wrong definition of sn_snd_fmd%cldes' ) 
    624       END SELECT 
    625       ! 
    626       IF(lwp) THEN                        ! control print 
    627          WRITE(numout,*) 
    628          WRITE(numout,*)'=============================================================' 
    629          WRITE(numout,*)'In sbc_cpl_init, after setting up ssnd(jps_fmdice)' 
    630          WRITE(numout,*)'ssnd(jps_fmdice )%clname: ', ssnd(jps_fmdice )%clname 
    631          WRITE(numout,*)'ssnd(jps_fmdice)%laction: ',ssnd(jps_fmdice)%laction 
    632          WRITE(numout,*)'=============================================================' 
    633          WRITE(numout,*) 
    634       ENDIF 
    635614      !                                                      ! -------------------------------- ! 
    636615      !                                                      !   OPA-SAS coupling - rcv by sas  !    
     
    891870      CASE default   ;   CALL ctl_stop( 'sbc_cpl_init: wrong definition of sn_snd_cond%cldes' ) 
    892871      END SELECT 
    893       ! 
    894        
    895  
     872      !       
     873      !                                                      ! ------------------------- ! 
     874      !                                                      !   Sea ice form drag       ! 
     875      !                                                      ! ------------------------- ! 
     876      ssnd(jps_fmdice )%clname = 'OIceFmd' 
     877      SELECT CASE ( TRIM( sn_snd_fmd%cldes ) ) 
     878         CASE ( 'none' ) 
     879            ssnd(jps_fmdice)%laction = .FALSE. 
     880         CASE ( 'coupled' )  
     881            ssnd(jps_fmdice)%laction = .TRUE. 
     882         CASE default   ;   CALL ctl_stop( 'sbc_cpl_init: wrong definition of sn_snd_fmd%cldes' ) 
     883      END SELECT 
     884      ! 
     885      IF(lwp) THEN                        ! control print 
     886         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 )%clname 
     890         WRITE(numout,*)'ssnd(jps_fmdice)%laction: ',ssnd(jps_fmdice)%laction 
     891         WRITE(numout,*)'=============================================================' 
     892         WRITE(numout,*) 
     893      ENDIF 
     894      ! 
    896895      !                                                      ! ------------------------------- ! 
    897896      !                                                      !   OPA-SAS coupling - snd by opa !    
Note: See TracChangeset for help on using the changeset viewer.