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 3488 for branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/OPA_SRC/SBC/sbcfwb.F90 – NEMO

Ignore:
Timestamp:
2012-10-04T18:31:06+02:00 (12 years ago)
Author:
acc
Message:

Branch: dev_r3385_NOCS04_HAMF; #665. Stage 3 of 2012 development: Rationalisation of code. Added LIM3 changes, corrected coupled changes and highlighted areas of concern in CICE interface

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/OPA_SRC/SBC/sbcfwb.F90

    r3402 r3488  
    106106            zcoef = z_fwf * rcp 
    107107            emp(:,:) = emp(:,:) - z_fwf  
    108             qns(:,:) = qns(:,:) + zcoef * sst_m(:,:)                          ! ensure fw correction does not change the heat budget 
     108            qns(:,:) = qns(:,:) + zcoef * sst_m(:,:)  ! account for change to the heat budget due to fw correction 
    109109         ENDIF 
    110110         ! 
    111111      CASE ( 2 )                             !==  fwf budget adjusted from the previous year  ==! 
    112112         ! 
    113          IF( kt == nit000 ) THEN                   ! initialisation 
    114             !                                      ! Read the corrective factor on precipitations (fwfold) 
     113         IF( kt == nit000 ) THEN                      ! initialisation 
     114            !                                         ! Read the corrective factor on precipitations (fwfold) 
    115115            CALL ctl_opn( inum, 'EMPave_old.dat', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 
    116116            READ ( inum, "(24X,I8,2ES24.16)" ) iyear, a_fwb_b, a_fwb 
    … …  
    138138            zcoef = fwfold * rcp 
    139139            emp(:,:) = emp(:,:) + fwfold 
    140             qns(:,:) = qns(:,:) - zcoef * sst_m(:,:)  ! ensure fw correction does not change the heat budget 
     140            qns(:,:) = qns(:,:) - zcoef * sst_m(:,:)  ! account for change to the heat budget due to fw correction 
    141141         ENDIF 
    142142         ! 
    … …  
    180180            ! 
    181181            emp(:,:) = emp(:,:) + zerp_cor(:,:) 
    182             qns(:,:) = qns(:,:) - zerp_cor(:,:) * rcp * sst_m(:,:)   
     182            qns(:,:) = qns(:,:) - zerp_cor(:,:) * rcp * sst_m(:,:)  ! account for change to the heat budget due to fw correction 
    183183            erp(:,:) = erp(:,:) + zerp_cor(:,:) 
    184184            ! 
Note: See TracChangeset for help on using the changeset viewer.