Changeset 8448


Ignore:
Timestamp:
2017-08-21T15:06:27+02:00 (3 years ago)
Author:
jamrae
Message:

Changes to NEMO coupling for form drag field.

File:
1 edited

Legend:

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

    r8385 r8448  
    616616      !                                                      ! ------------------------- ! 
    617617      ssnd(jps_fmdice )%clname = 'OIceFmd' 
    618       ssnd(jps_fmdice)%laction = .FALSE. 
    619       IF( TRIM( sn_snd_fmd%cldes ) == 'coupled' ) ssnd(jps_fmdice)%laction = .TRUE.       
     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 
    620625      !                                                      ! -------------------------------- ! 
    621626      !                                                      !   OPA-SAS coupling - rcv by sas  !    
     
    26272632      ztmp1(:,:) = sstfrz(:,:) + rt0 
    26282633      IF( ssnd(jps_sstfrz)%laction )  CALL cpl_snd( jps_sstfrz, isec, RESHAPE ( ztmp1, (/jpi,jpj,1/) ), info ) 
    2629       SELECT CASE( sn_snd_fmd%cldes) 
    2630          CASE( 'coupled' )    
    2631              ztmp1(:,:) = fmdice(:,:) 
    2632       END SELECT 
     2634      ztmp1(:,:) = fmdice(:,:) 
    26332635      IF( ssnd(jps_fmdice)%laction )   CALL cpl_snd( jps_fmdice, isec, RESHAPE ( ztmp1, (/jpi,jpj,1/) ), info )  
    26342636#endif 
Note: See TracChangeset for help on using the changeset viewer.