Changeset 7659
 Timestamp:
 20170208T17:15:57+01:00 (6 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

branches/UKMO/dev_r5518_pcbias_ipc/NEMOGCM/NEMO/OPA_SRC/ASM/bias.F90
r7657 r7659 955 955 tsw(:,:,:,jp_sal) = tsa(:,:,:,jp_sal)  sbias_p(:,:,:)  sbias_i(:,:,:) 956 956 IF ( ln_incpc_only ) THEN 957 IF(lwp) WRITE(numout,*) 'ln_incpc_only =', ln_incpc_only, 'tsw updated with IPC only and ln_dynhpg_imp = ',ln_dynhpg_imp 957 958 tsw(:,:,:,jp_tem) = tsa(:,:,:,jp_tem)  tbias_i(:,:,:) 958 959 tsw(:,:,:,jp_sal) = tsa(:,:,:,jp_sal)  sbias_i(:,:,:) … … 966 967 tsw(:,:,:,jp_sal) = tsb(:,:,:,jp_sal)  sbias_p(:,:,:)  sbias_i(:,:,:) 967 968 IF ( ln_incpc_only ) THEN 969 IF(lwp) WRITE(numout,*) 'ln_incpc_only =', ln_incpc_only, 'tsw updated with IPC only and ln_dynhpg_imp = ',ln_dynhpg_imp 968 970 tsw(:,:,:,jp_tem) = tsb(:,:,:,jp_tem)  tbias_i(:,:,:) 969 971 tsw(:,:,:,jp_sal) = tsb(:,:,:,jp_sal)  sbias_i(:,:,:) … … 972 974 ENDIF 973 975 976 IF(lwp) WRITE(numout,*) 'dyn_bias( kt ) calculating rhd_pc, kt =', kt 974 977 CALL eos( tsw, rhd_pc, rhop ) 975 978
Note: See TracChangeset
for help on using the changeset viewer.