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 8385 – NEMO

Changeset 8385


Ignore:
Timestamp:
2017-07-27T12:52:27+02:00 (7 years ago)
Author:
jamrae
Message:

Debugging.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r8384 r8385  
    852852      !                                                      ! ------------------------- ! 
    853853      ssnd(jps_sstfrz)%clname = 'O_SSTFrz' ; IF( TRIM(sn_snd_sstfrz%cldes) == 'coupled' )  ssnd(jps_sstfrz)%laction = .TRUE. 
    854       ! 
    855       !                                                      !------------------------! 
    856       !                                                      ! Sea ice form drag      ! 
    857       !                                                      !------------------------! 
    858       SELECT CASE( sn_snd_fmd%cldes) 
    859          CASE( 'coupled' )    
    860              ztmp1(:,:) = fmdice(:,:) 
    861       END SELECT 
    862       IF( ssnd(jps_fmdice)%laction )   CALL cpl_snd( jps_fmdice, isec, RESHAPE ( ztmp1, (/jpi,jpj,1/) ), info )  
    863854      ! 
    864855      !                                                      ! ------------------------- ! 
    … …  
    26362627      ztmp1(:,:) = sstfrz(:,:) + rt0 
    26372628      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 
     2633      IF( ssnd(jps_fmdice)%laction )   CALL cpl_snd( jps_fmdice, isec, RESHAPE ( ztmp1, (/jpi,jpj,1/) ), info )  
    26382634#endif 
    26392635      ! 
Note: See TracChangeset for help on using the changeset viewer.