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

Changeset 4206


Ignore:
Timestamp:
2013-11-14T21:13:29+01:00 (10 years ago)
Author:
clem
Message:
 
Location:
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

    r4205 r4206  
    2525   USE domvvl          ! variable volume 
    2626   USE divcur          ! hor. divergence and curl      (div & cur routines) 
     27   USE sbc_ice, ONLY : lk_lim3 
    2728 
    2829   IMPLICIT NONE 
     
    132133                     CALL iom_rstput( kt, nitrst, numrow, 'rhd'    , rhd       ) 
    133134#endif 
     135                  IF( lk_lim3 ) THEN 
    134136                     CALL iom_rstput( kt, nitrst, numrow, 'iatte'  , iatte     ) !clem modif 
    135137                     CALL iom_rstput( kt, nitrst, numrow, 'oatte'  , oatte     ) !clem modif 
     138                  ENDIF 
    136139      IF( kt == nitrst ) THEN 
    137140         CALL iom_close( numrow )     ! close the restart file (only at last time step) 
     
    234237      ENDIF 
    235238      ! 
    236       CALL iom_get( numror, jpdom_autoglo, 'iatte' , iatte ) ! clem modif 
    237       CALL iom_get( numror, jpdom_autoglo, 'oatte' , oatte ) ! clem modif 
     239      IF( lk_lim3 ) THEN  
     240         CALL iom_get( numror, jpdom_autoglo, 'iatte' , iatte ) ! clem modif 
     241         CALL iom_get( numror, jpdom_autoglo, 'oatte' , oatte ) ! clem modif 
     242      ENDIF 
    238243      ! 
    239244   END SUBROUTINE rst_read 
  • branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90

    r4205 r4206  
    364364                          CALL lim_update2                 ! Global variables update 
    365365#if defined key_bdy 
     366                          CALL lim_var_glo2eqv            ! 
    366367                          CALL bdy_ice_lim( kt )          ! clem modif: bdy ice 
    367368#endif 
  • branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90

    r4205 r4206  
    163163         CALL iom_put( 'qsr3d', etot3 )   ! Shortwave Radiation 3D distribution 
    164164         ! clem: store attenuation coefficient of the first ocean level 
    165          IF ( ln_qsr_ice ) THEN 
     165         IF ( lk_lim3 .AND. ln_qsr_ice ) THEN 
    166166            DO jj = 1, jpj 
    167167               DO ji = 1, jpi 
     
    232232               END DO 
    233233               ! clem: store attenuation coefficient of the first ocean level 
    234                IF ( ln_qsr_ice ) THEN 
     234               IF ( lk_lim3 .AND. ln_qsr_ice ) THEN 
    235235                  DO jj = 1, jpj 
    236236                     DO ji = 1, jpi 
     
    256256               END DO 
    257257               ! clem: store attenuation coefficient of the first ocean level 
    258                IF ( ln_qsr_ice ) THEN 
     258               IF ( lk_lim3 .AND. ln_qsr_ice ) THEN 
    259259                  oatte(:,:) = etot3(:,:,1) / r1_rau0_rcp 
    260260                  iatte(:,:) = oatte(:,:) 
     
    280280               END DO 
    281281               ! clem: store attenuation coefficient of the first ocean level 
    282                IF ( ln_qsr_ice ) THEN 
     282               IF ( lk_lim3 .AND. ln_qsr_ice ) THEN 
    283283                  DO jj = 1, jpj 
    284284                     DO ji = 1, jpi 
     
    299299               END DO 
    300300               ! clem: store attenuation coefficient of the first ocean level 
    301                IF ( ln_qsr_ice ) THEN 
     301               IF ( lk_lim3 .AND. ln_qsr_ice ) THEN 
    302302                  oatte(:,:) = etot3(:,:,1) / r1_rau0_rcp 
    303303                  iatte(:,:) = oatte(:,:) 
     
    319319         ! 
    320320      ENDIF 
    321       ! clem: store attenuation coefficient of the first ocean level 
    322       !IF (ln_traqsr) THEN 
    323       !   DO jj = 1, jpj 
    324       !      DO ji = 1, jpi 
    325       !         IF ( qsr(ji,jj) /= 0._wp ) THEN 
    326       !            oatte(ji,jj) = qsr_hc(ji,jj,1) / ( r1_rau0_rcp * qsr(ji,jj) ) 
    327       !            iatte(ji,jj) = qsr_hc(ji,jj,1) / ( r1_rau0_rcp * qsr(ji,jj) ) 
    328       !         ENDIF 
    329       !      END DO 
    330       !   END DO 
    331       !END IF 
    332321      ! 
    333322      IF( lrst_oce ) THEN   !                  Write in the ocean restart file 
Note: See TracChangeset for help on using the changeset viewer.